i 1=> ASSEMBLE THIS SECTION, 0=> THIS STUFF HAS BEEN REMOVED 









2 . 



CENTRAL INPUT OUTPUT ROUTINE 
; SET SYSTEM TIMERS ROUTINE 


COMMAND CODES FOR IOCB 


OPEN 

GETCHR = 


oooc 

CLOSE 

= 

0001 

SUCCES 

s= 

0003 

EOF 

s 

0010 

IOCBSZ 

i 

sz 



*=8 

0008 

WARMST 

*=•*+1 

0009 

BQOT^ 

*=#+1 



*=$11 

001 1 

BRKKEY 

*=#+1 



*=$52 

0052 

LMARGN 

*=*+1 

0053 

RMARGN 

*=*+1 

0054 

ROWCRS 

*=*+1 

0055 

COLCRS 

*=#+2 


t 

*=$22i e 

022A 

CDTMF3 



OPEN FOR INPUT/OUTPUT 
GET CHARACTER <S) 
i PUT CHARACTER CS) 


; CLOSE DEVICE 


$03 

16 


SUCCESSFUL OPERATION 
i END OF FILE (NOT REALLY AN ERROR) 
; NUMBER OF BYTES PER IOCB 


; WARM START FLAG 
j SUCCESSFUL BOOH FLAG 


; BREAK KEY FLAG 


i LEFT MARGIN <0 MIN. ) 

; RIGHT MARGIN (39 MAX. ) 
CURSOR COUNTERS 


02F0 


CRSINH 


*=$2F0 

»=*+! 


; COUNT DOWN TIMER 3 FLAG 
CURSOR INHIBIT (00 - CURSOR ON) 


0340 


IOCB 


*=$340 
*=*. 


I/O CONTROL BLOCKS 



0340 

ICHID 

*=*+i 

0 

0341 

ICDNO 

#=#+ 1 


0342 

ICCOM 

*=*+i 


0343 

ICSTA 

*=*+i 

0 

0344 

ICBAL 

*=■«■+ 1 


0345 

ICBAH 

*=*+i 


0346 

ICPTL 

*=*+i 

0 

0347 

ICPTH 

*=*+i 


.0348 

ICBLL 

*=*+i 


0349 

ICBLH 

*=*+i 

0 

034A 

ICAX1 

*=*+i 


034B 

ICAX2 

*=*+i 

0 

034C 

ICSPR 

/ 

*=*+4 

0 

0006 

9 

FPREC 

= 

9 

D800 

AFP 

i 

22 


STATUS OF LAST IOCB ACTION 
BUFFER ADDRESS LOW BYTE 


PUT BYTE ROUTINE ADDRESS - 
BUFFER LENGTH LOW BYTE 
AUXILIARY INFORMATION FIRST BYTE 
FOUR SPARE BYTES 

FLOATING POINT SUBROUTINES 



HANDLER INDEX NUMBER (FF = IOCB FREE) 
DEVICE NUMBER (DRIVE NUMBER) 

COMMAND CODE 


; FLOATING PT PRECISION (# OF BYTES) 

IF CARRY USED THEN CARRY CLEAR => NO ERROR, CARRY SET => 
; ASC 1 1 ->FLOAT I NG POINT (FP) 

INBUFF+C I X ~> FRO, CIX, CARRY 




COLLEEN CALCULATOR. BY C SHAW 


D8E6 

FASC 

- 

♦D8E6 

< FP -> ASCII 

FR( 

D9AA 

IFP 

• 

♦D9AA 

i INTEGER -> FP 



1 



©-♦FFFF ( LSB, MSB ) IN 

D9D2 

F PI 

m 

♦D9D2 

i FP -> INTEGER 

FR< 

DA60 

FSUB 

m 

♦ DA60 

j FRO FRO - 

FP 1 . 

DA66 

FADD 

as 

♦ DA66 

i FRO <- FRO + 

r n i j 

FR 1 # | 

DADB 

FMUL 

as 

♦ DADB 

i FRO <- FRO * 

FR 1 , 

DB28 

FDIV 

m 

♦DB2B 

i FRO O FRO / 

FR 1 

DD89 

FLDOR 

m 

♦ DD89 

i FLOATING LOAD 

REGO 

DD8D 

FLDOP 

m 

♦DD8D 

• M II 

II 

DD98 

FLD1R 

m 

♦DD98 

n ll 


DD9C 

FLD1P 

m 

♦DD9C 

, M II 

ncu l 

ii 

DDA7 

FSTOR 

m 

♦DDA7 

j FLOATING STORE REGO 

DDAB 

FSTOP 

m 

♦DDAB 

j II H 

ii 

DDB6 

FMOVE 

as 

♦ DDB6 

» FR 1 <- FRO 


DD40 

PLYEVL 

as 

♦DD40 

i FRO <- P(Z) = 

SUM ( I 


INPUT: 


(X, Y) 

ACC 

FRO 


)-> LBUFF (INBUFF) 

FRO, FRO+ 1 ->FRO 
) -> FRO, FRO-*- 1 , CARRY 

:arry 

CARRY 
CARRY 
CARRY 

FRO <- ( X, Y) 

FRO <- (FLPTR ) 

FR1 O (X, Y) 

FR1 <- (FLPTR) 

(X, Y) <~ FRO 
(FLPTR X- FRO 

N TO 0) <A(I)*Z**I) 

A ( N ) , A ( N- 1 ) . . . A ( 0 ) -> PLYARG 

# OF COEFFICIENTS = DEGREE+1 
Z 


CARRY 


DDCO 

gyp 

as 

♦DDCO 

i FRO 

<- 

E**FR0 = 

EXP10(FR0 * 1 DOIO(F) ) 

r ADD v 

DDCC 

EXP 10 

S3 

♦DDCC 

i FRO 

<- 

10**FR0 

• A 1 X v \ 1 l \ w » L. U w X w V L. J J 

CARRY 


DECD 

LOG 

as 

♦DECD 

J FRO 

<- 

LN(FRO) = 

L0G10 ( FRO ) /LOG 10 ( E ) 

CARRY 

DED1 

LOG 10 

as 

♦DED1 

j FRO 

c- 

LOG 10 (FRO) TARRY 



i 



THE FOLLOWING ARE 

IN BASIC CARTRIDGE: 



J SIN 

= 

♦BD81 

j FRO 

o 

SIN ( FRO ) 

DEGFLG=0 =>RADS, 6= 

:>DEG 


; COS 

■ 

♦BD73 

i FRO 

<- 

COS (FRO) 

CARRY 



, ATAN 

as 

♦ BE43 

J FRO 

<- 

ATAN (FRO) 

CARRY 


rm — rrn "n — tmm 

J SQR 

S3 

♦BEB1 

1 FRO 

c- 

SQUAREROOT ( FRO ) CARRY 



CARRY 


i FLOATING POINT ROUTINES ZERO PAGE (NEEDED ONLY IF F. P. ROUTINES ARE CALLED) 


00D4 

OODA 


FRO 

FRE 

*=♦04 

*=*+FPREC 

*=*+fprec 

; FP REGO 

OOEO 

00E6 

OOEC 


FR 1 
FR2 
FRX 

*=*+FPREC 

*=*+FPREC 

*=*+1 

i FP REG1 
i FP SPARE 

OOED 


EEXP 

*=*+l 

i VALUE OF 

OOEE 


NS I GN 

-*=#+1 

; SIGN OF 

00 EF 


ESIGN 

*=*+l 

i SIGN OF 

OOFO 


FCHRFLG 

•*=-*+ 1 

i 1ST CHAR 


00F1 
00F2 
00F3 
OOF 5 
00F7 


00F9 

OOFB 

OOFC 

OOFE 


DIGRT 

CIX 

INBUFF 

ZTEMP1 

ZTEMP4 


*=*+ 1 
*=*+1 
■*=■#•+2 
*=*+2 
*=*+2 


ZTEMP3 

RADFLG 

FLPTR 

FPTR2 


-&•=•* +2 
*=*+l 
+2 

*=#+2 


# OF DIGITS RIGHT OF DECIMAL 

CURRENT INPUT INDEX 

POINTS TO USER'S LINE INPUT BUFFER 


; O-RAD I ANS, 6=DEGREES 
i POINTS TO USER'S FLOATING PT NUMBER 


057E 

057F 

LBPR1 

LBPR2 

*=♦57 E 
*=*+1 
*=*+1 

0580 

LBUFF 

*=*+128 

05E0 

PLYARG 

— 

05E6 

FPSCR 

jjjj* 

05EC 

FPSCR1 

ST 


; FLOATING PT ROUTINES' NON-ZERO PAGE RAM (NEEDED ONLY IF F. P. ROUTINES CALLED) 

; LBUFF PREFIX 1 

i LBUFF PREFIX 2 

; LINE BUFFER 

LBUFF+*60 ; POLYNOMIAL ARGUMENTS 

PI YAR Q+FPRETC 

FPSCR+FPREC 


0580 

05E0 

05E6 

05EC 


LBUFF 

PLYARG 

FPSCR 

FPSCR1 


*=*+128 i LINE BUFFER 

LBUFF+$60 .POLYNOMIAL ARGUMENTS 

= PLYARG+FPREC 

= FPSCR+FPREC 


COLLEEN CALCULATOR, BY C SHAW 


05E6 

05EC 

FSCR 

-FSCR 1 a 

FPSCR 
FPSCR 1 


D200 

j 

AUDF1 

$D200 

COLLEEN REGISTER EQUATES 
: Qni IKin DCA 1 CDcr/Tii 

D201 

AUDC1 

AUDF1+1 

, puuimu new i rKIr.uUt.l'lLY 

; SOUND REG 1 CONTROL 

D20A 

RANDOM = 

AUDF1+10 

> 8 BIT RANDOM NUMBER 







COLLEEN CALCULATOR. BY C SHAW 


UNIVERSAL EQUATES 


0004 

0008 


001 B 
001C 
0010 
00 IE 
001F 
007D 
007E 
007F 
009B 
009C 
009D 
009E 
009F 
OOFE 
OOFF 


INPUT 

OUTPUT 


ESC 

UPAROW 

DNAROW 

LFAROW 

RTAROW 

CLS 

BACKSP 

TAB 

CR 

DELL IN 
INSLIN 
CLRTAB 
SETTAB 
DELCHR 
INSCHR 


*1B 

ESC + 1 

ESC+2 

ESC+3 

ESC+4 

*7D 

CLS+1 

CLS+2 

$9B 

CR+1 

CR+2 

CR+3 

CR+4 

*FE 

DELCHR+1 


CIO COMMANDS 
j AUX1 ON OPEN 
i AUX1 ON OPEN 

SPECIAL CHARS IN ATARI EXTERNAL ASCII 
. ESCA PE 

\ UP ARROW (CONTROL CHAR) 
i DOWN 
j LEFT 
; RIGHT 

i CLEAR SCREEN 
i BACKSP 


; CARRIAGE RETURN 
; DELETE LINE 
i INSERT LINE 
i CLEAR TAB 
i SET TAB 
j DELETE CHAR 
i INSERT CHAR 


OOOB 

NATCF 

0006 

NSCF 

D920 


DA51 

INTLBF 

DC 00 

NORM 

DE03 

EXP! 

DEI 2 

EXP 1 1 

DE89 

L0G10E 

DE95 

XFORM 


DF6C 

DFAE 

DFEA 


FHALF 

ATCOEF 

FR9S 




*D920 


$DA51 

$DCOO 

$DE03 


$DE12 

$DE89 

*DE95 


DFFO 


PI0V4 


*DF6C 

*DFAE 

$DFEA 

*DFFO 


FP PACKAGE EQUATES FOR SIN, COS, ATAN, AND SQR ROUTINES ETC 

_i NUMBER OF ATAN COEFFICIENTS FOR POLYNOMIAL EVALUATION 
; NUMBER OF SIN COEFFICIENTS 

i i EFORM PROCESS E FORMAT FOR ER ASCII CONVERSION 
; INIT LBUFF INTO INBUFF FOR FP -> ASCII CONVERSION 
; NORMALIZE FLOATING POINT NUMBER - USED BY STRUNC ONLY 

j I'll DOLE OF EXP 10 WHERE PLYEVL IS CALLED 

i AFTER PLYEVL IN EXP10 
; LOGTEN (E) = .4342944819 

iFRO <- ( FRO- ( X, Y>> / (FRO+(X, Y) ) I 

; FLOATING POINT CONSTANT .5 
iATAN COEFFICIENTS 
j FLOATING POINT CONSTANT 
i FLOATING POINT CONSTANT 


. 9999999999- (ALMOST I > 
PI/4 = .7853981634 




. . i 















COLLEEN CALCULATOR, BY C SHAW 








COLLEEN CALCULATOR# BY C SHAW 



• 

) 


CALCULATOR EQUATES 

OOOl 

LMARG 

ss 

1 ; LMARGN VALUE 

0026 

RMARG 

= 

38 


0026 

LINLEN 

SS 

38 # LENGTH OF LINE ON SCREEN 

0016 

ROWCMD 


22 

ROWCRS FOR COMMANDS 

0016 

COLCMD 

s 

22 

COLCRS FOR COMMANDS 

0001 

ROWSTT 

ss 

1 

ROW # FOR STATUS 

0005 

ROWREG 

= 

5 

ROW FOR STACK, MEM REGS 

0010 

ROWSCR 

= 

16 

TOP ROW FOR SCROLLING 

0000 

SIOCB 


0*I0CBSZ 

SCREEN IOCB # (SET UP BY OS) 

0010 

KIOCB 

SB 

1*I0CBSZ 

KEYBOARD IOCB # 

0020 

PIOCB 

SS 

2# IOCBSZ 

PRINTER IOCB # 

0030 

TIOCB 

ss 

3* IOCBSZ 

TEMP IOCB # (USED FOR FILE I/O) 

OOOD 

TOKCLN 

ss 

TOKEND-TOKCHR- 1 ; LENGTH OF TOKCHR-1 

0087 

SLASH 

= 

STAR+1 


0088 

PLUS 


ST AR+2 


0089 

MINUS 

ss 

STAR+3 


008A 

LPAR 

= 

STAR+4 


008B 

RPAR 

ss 

ST AR + 5 


008C 

EQUAL 

= 

STAR+6 


008D 

LPAD 

= 

STAR+7 


008F 

NUMBER 

ss 

STAR+8 


OOOE 

PSPEC 

MM 

14 

PRIORITY OF SPECIAL O-VAR FNS (PRINT, ETC 

OOOJD 

PHIGH 

ss 

13 

PRIORITY OF SINGLE VAR FNS. 

OOOA 

PSPEC2 

ss 

10 

SPECIAL 2-VAR FNS 

0009 

PPOWER 

= 

9 

POWER, ROOT 

QQQ8 

PTIMES 


8 

* / 

0007 

PPLUS 

= 

7 

i + ~ 

0006 

PAND 

= 

6 


0005 

POR 

ss 

5 


0002 

PLRPAR 

= 

2 

; ( ) 

0001 

PEQUAL 

ss 

1 

i = 

0000 

PLPAD 

ss 

0 

i BOTTOM OF STACK SYMBOL 

OOOE 

NUMLEN 

mmm 

14 

LENGTH OF NUMBER IN ASCII FORMAT 

002A 

FPSLEN 

ss 

42 

LENGTH UF FPSTK IN FP NUMBERS 

0100 

□PSLEN 

= 

256 

LENGTH OF OPSTK IN OPERANDS 

0064 

MEMLEN 

ss 

100 

LENGTH OF MEMORY AREA IN FP NUMBERS 

0028 

TQKLEN 

= 

LINLEN+2 

__ ; LENGTH OF TOKBUF IN CHARS 

0400 

PRGLEN 

ss 

1024 

; PROGRAM MEMORY LENGTH IN BYTES 

OOOA 

SPCLEN 

ss 

SPCEND-SPCTBL-1 

i LENGTH OF SPCTBL - 1 


; GRADON 

= 

12 

; DEGREE FLAG SETTING FOR GRAD 


; 


COLUMN NUMBERS FOR LINE 0 STATUS DISPLAY 

0002 

DALG 

— 

2 


0007 

DDEG 

ss 

7 


POOR 

JQDEC 

— 

1 1 


0013 

DB ITS 

ss 

15+4 


0019 
nm o 

DFI X 
dfvduf 

= 

22+3 

27 


ww-XJj 

0021 

. 

DENTER 

ss 

33 

























COLLEEN CALCULATOR. BV C SHAW 




*®480 

0080 

ZROPG 


0080 

* LFRT 

#»**1 

0081 

TQKCOD 

*»#-*• l 

0082 

TOKPTR 

*s*+2 

0084 

TOKTMP 

*s*+2 

0086 

TOKTIN 

*=»#♦ 1 

0087 

DHOFLG 

*■*♦ 1 

0088 

KEYCHR 

*»#•*• 1 

0089 

KEYLEN 

1 

008A 

KEYLN2 

*«*+l 

0088 

LDNBSV 

***♦1 

008C 

CLRPTR 


008C 

PKPTR 

*s*+2 

OOQE 

KYLFRT 

*»*+l 

008 F 

KEYCNT 

***♦1 

0090 

JMPTR1 

***>♦•2 

0092 

JMPTR2 

***+2 

0094 

RPNALG 

*at*+l 

0001 

ALGP 

■ 

0002 

ALGNOP 

m 

0095 

PRNFLG 

*=s*+l 

0096 

OPFLG 

* = *+1 

0097 

NOPFLG 

*=*+1 

0098 

PREVOP 

* = *+1 

0099 

PRVPRI 

*=*+1 

009A 

CURPRI 

*=*■♦■1 

009B 

FPPTR 

*=•* + 1 

009C 

OPPTR 

*=*+ 1 

009D 

BITINT 

* = *+1 

i DAYTMP 


i CHRIND 
; COUNT 
; LOP 


; SHFFLG 


009E 


TO 

*==-*+ 1 

009 F 


T 1 

*=•*+ 1 

OOAO 


NEGFLG 

*=*+1 

00A1 


INTFLG 

*=*+1 

00A2 


NUMFLG 

*=•#+1 

00A3 


MEMNUM 

*=*+1 

00A4 


BITBIN 

#=•#•+4 

00A8 


BITBN2 

+4 

OOAC 


BINMIN 

+4 

OOBO 


BINARY 

#=#•+4 

00B4 


BIN2 

*=*+4 

00B8 


QUADFLG 

•*=■*+1 


QQB9 EC »«»+ 2 


0002 

0001 

OOBB 

EXEC 

STOPRG 

PROG 

*=■*+1 

OOBC 

TRACE 

#=#+ 1 

OOBD 

DSPFLG 

•*=•»■+ 1 

OQBE 

SSTFLG 

#=-&+ 1 


RAM PAGE ZERO 


i 1 -> LEFT NIBBLE. 0=> RIGHT NIBBLE (USED BY LDNIB) 
i TOKEN CODE 

.POINTER TO NEXT TOKBUF LOC 
. LAST 0-2 CHARS READ AND SAVED 
i INDEX TO TOKTMP <0-2> 
i 0=> DEC. 16*>HEX. 8=>0CT. 2»>BIN 
i CURRENT KEY CHAR (0-?) 
i LENGTH OF CURRENT KEY WORD 

iKEY LENGTH (MODIFIED BY LDCHR FOR 2 NIBBLE CHARS) 
i REO Y SAVED FOR LDNIB 
i FOR RAM CLEAR 

i POINTER TO PACKED CHAR STRING (USED BY LDNIB) 

, LFRT FOR BEGINNING OF WORD 
i KEY WORD NUMBER 
i INDEX FOR SUBROUTINE JUMP 

; 0=>RPN. 1=>ALG» 2=>ALGN 

; ALGEBRAIC. OPERATOR PRECEDENCE 

i ALGEBRAIC. SAME PRECEDENCE FOR 2 VAR OPERATORS 
i 1=>PR INT 

; 1 =>PREVIOUS TOKEN WAS AN OPERATOR 
i NEW OPFLG 1=> CURRENT TOKEN IS OPERATOR 
; PREVIOUS OPERATOR TOKEN CODE 
i « " PRIORITY (PRECEDENCE) 

i CURRENT " “ 

i FPSTK POINTER (STARTS AT 0) 

. QP3TK 11 " " " 

; 1-32: NUMBER OF BITS IN OCTAL & HEX ARITHMETIC 
; TEMP VAR FOR DAYSUB 
i INDEX INTO CHRTAB 

j TEMP COUNT VAR 

; FOR SAND. SOR, SXOR 0=>AND. 1=>0R, 2=> XOR 

.FOR SRSHF. SLSHF 0=>LEFT. 1=>RIGHT 

l TEMP VAR CALL OF ABOVE 1 

TEMP VAR USED IN SCL INT&SCLSTA 
PL=> POSITIVE. MI=>NEGATI VE NUMBER 

0=>X & Y BOTH INTEGER IN ROOT. POWER 

1=> PREVIOUS THING DISPLAYED WAS A NUMBER 
MEMORY NUMBER 


; 2 X% ( B I TINT-1 >-l 
; (2^BITINT)-1 

; -(2- (BITINT-1 ) ) MSB-LSB = COMP(BITBIN) 
; FRO IN BINARY FORMAT 
; SECOND BINARY # 

;SIN QUADRANT FLAG 


i PROGRAM COUNTER LSB. MSB (INIT TO PRGMEM ) 






0=> IMMEDIATE MODE. 1=>ST0RING PROG. 


2 => 


EXI 


=wi 


r ING 




1 => TRACE ON (DISPLAY ALL PROGRAM EXECUTION) 

1 => DO NOT DISPLAY OR PRINT ANYTHING (PROGRAM EXECUTING) 
1=>D0 SINGLE STEP (EXECUTE ONE INSTRUCTION) 


FP TO ASCII CONVERSION VARS 



re fastness Forms, Inc. sv 1412T ITI-2 


wot 


UU II 1— 




i 



COLLEEN CALCULATOR, 

BY C SHAW 


» 

OOBF 

SEFORM 

*=•»■+ 1 


OOCO 

FIXNUM 


t 

ooci 

MANTLN 

#=•#■+ 1 

• 1 

00C2 

SSI GN 

*=*+l 


00C3 

SMSD 

*=*+i 


00C4 

LDCSAV 

*=*+l 

m 

00C5 

DUEFLG 

*=*+! 


OOCA 

00C7 

00C8 

00C9 

QOCA 

OOCB 

OOCC 

OOCE 

OODO 

00D2 

00D3 


ENTFLG 

ERRFLG 

MEMFLG 

CALPTR 

CQNFLG 


#=*+1 

*=*+1 

*=*+1 

#=#+l 

*=*+1 


SCONFG *=*+1 


OP SADR 
MEMADR 
PRGADR 
PC 1 MAX 
PC1MX1 


■»■=•»• +2 
*=*+2 
#=-h-+2 


FP TO ASCII CONVERSION VARS 


> 


i 1=>EF0RM 

I FIXQ-9 

; LENGTH OF MANTISSA 
; BIT 8 IS SIGN BIT 
iSAVE MSD OF FRO (FRO+1) 

; SAVE PART CHAR FOR LDCHAR 

; 0 => ANNUITY DUE/FV, 1=>0RDINARY ANNUITY/FV 
2 => ANNUITY DUE/PVj 3 => ORDINARY ANNUITY/PV 
*80 => COMPOUND INTEREST, NOT ANNUITY 

iO => ENTER VALUE, 1 => FIND VALUE (FOR INTEREST EQNS. ) 
i 1=>ALREADY HAVE DISPLAYED ERROR MSG, DON'T DO MORE 
; 0=>ADD (SIGMA PLUS), 1=>SUB (SIGMA MINUS) 
i POINTER TO CALSTK 

i CONVERSION MSG LSB 0=> NO CONVERSION 
i SAVED CONFLG FROM PREVIOUS LOOP 

- i OPSTK-ADR 

; MEMORY ADR = 0PSADR+$100 
; PRGMEM ADR = MEMADR+$300 
; MAX PC+1 VALUE a PRGADR/256 + 3 
i PC 1MAX+1 

i FLOATING POINT RAM 

































COLLEEN CALCULATOR. BY C SHAW 


#=1480 


0480 

CAL8TK 

•*•♦480 

i SUBROUTINE CALL STACK <128/2 * 64 CALLS 

DEEP) 

0900 

TOKBUF 

•••♦TOKLEN 

i TOKEN STRING BUFFER 


0928 „ 

BLKBUF 

***♦20 

, ALL BLANKS 


093C 

CTLRS 

***+20 

« ALL CTRL R'S (HORIZ. LINES) 


0990 

MO DF AC 

•**+FPREC 

i INT (Y/X) AFTER MOD 


0996 

FTEMP 

•■♦+FPREC 

1 MY OWN TEMP F. P. REG 


099C 

FPX 

***+FPREC 

iX REG SAVED DURING STORE PROGRAM MODE 


0962 

ASAVE 

•*#♦1 

i REG A SAVE LOC 



VCAUC 

f ■§+ j 



w JOJ 

0964 

YSAVE 

*»*♦ 1 



0969 

PRVSTK 

*■*♦ 1 

i FOR DSPSTK: PREVIOUS ROWCRS VALUE AT END 

OF STACK 

0966 

SSTOLD 

**♦♦1 

i SSTFLG FROM PREVIOUS LOOP 



♦-LBPR1 

j FLOATING POINT 




•*4600 


« 

0600 

FPSTK 

*-FPSLEN#FPREC+* 

i FLOATING POINT NUMBER STACK 



. IF ASMBL 

#=$3000 


DISK USES 4700-42800? 

THESE ADDRESSES START AT 700 IF NO DISK* 3000 IF DISK 


QPSTK 

MEMORY 

PROMEM 


MttOPSLEN 

*«*-l/256+ 1*256 
*=MEMLEN*FPREC+* 

**#-1/256+ 1*256 

*=*+PRGLEN * USER PROGRAM MEMORY 

. END IF 










COLLEEN CALCULATOR , BY C SHAW 




• 

COLLEEN CALCULATOR, 

BY C SHAW 





9800 

SEXPE 

*=*9800 



9800 A2 89 
9802 AO DE 
9804 20 C5 AD 


LDX 

LDY 

JSR 

#L0G10E 
#L0G10E/256 
LD1MUL 

jE X (SEE SHEP ATARI BASIC *DDCQ EXP) 
iE A X = 10^< X*LOGTEN(E) ) 

i FRO C- FR0*LDG10E 


9807 

9807 A9 00 

SEXPTE 

LDA 

ftO 

i 10-X (SEE SHEP ATARI BASIC *DDCC EXP 10) 
i CLEAR TRANSFORM FLAG 


9809 85 FI 
980B A5 D4 
9800 85 FO 


STA 

LDA 

STA 

DIGRT 

FRO 

FCHRFLG 

i XFMFLG 

; SAME AS SGNFLG REMEMBER ARG SIGN 


980F 29 7F 
9811 85 D4 
9813 38 


AND 

STA 

SEC 

#*7F 

FRO 

; & MAKE PLUS 


9814 E9 40 
9816 30 IB 
9818 C9 04 


SBC 

BMI 

CMP 

#*40 

SEXP05 

#FPREC-2 

i X<1 SO USE SERIES DIRECTLY (BUT CHECK FOR 0 FIRST) 


981 A 10 2B 
98 1C 20 BB 9F 
98 IF 20 83-A6 


BPL 

JSR 

JSR 

SFERR2 

FPUSHO 

S1NTEG 

; ARG TOO BIG 

i SAVE ARG ON CALCULATOR FP STACK 
-4 GREATEST INTEGER <= X 


9822 20 D2 D9 
9825 A5 D5 
9827 DQ IE 


JSR 

LDA 

BNE 

FPI 

FRO+1 

SFERR2 

; MAKE INTEGER 
; CHECK MSB 
j SHOULDN'T HAVE ANY 


9829 A5 D4 
982B 85 FI 
982D 20 AA D9 


LDA 

STA 

JSR 

FRO 

DIGRT 

IFF 

i XFMFLG SAVE MULTIPLIER EXP 

j NOW TURN IT BACK TO FP 


9830 20 80 A9 
9833 

9833A5 D4 

SEXP05 

JSR 

LDA 

SPSUB 

FRO 

' USE CALC ROUTINE ARG FROM STACK - INTEGER PART = FRACTION PART 


9835 DO OB 
9837 A9 01 
9839 20 B9_ A1 


BNE 

LDA 

JSR 

SEXP10 

#1 

PSETO 

; 10'-'0 = 1 


983C 20 12 DE 
983F BO 06 
9841 

SEXPJ3T 

JSR 

BCS 

EXP 1 1 
SFERR2 

i *DE12 DO 10'’'X, SKIPPING PLYEVL LDA XFMFLG . . 


9841 60 


RTS 




9842 

SEXP1Q 





9842 20 03 DE 
9845 90 FA 
9847 

SFERR2 

JSR 

BCC 

EXP 1 
SEXPRT 

; DO REST OF 10' - 'X 
; CC => OK => RETURN 


9847 4C 95 A3 


JMP 

BITERR 

; DISPLAY ERROR MESSAGE 


LCULATOft. BY C BMAW 



•-4AOOO 


98 4 A 

984A A9 00 
984C AA 
9840 

9840 99 BO 
984 F £8 
9800 10 FB 


9802 A9 0/ 
9804 A6 09 
9006 FO 02 
7808 A9 30 
980 A 

980A 80 CD 
98 DC 18 
98DD 89 01 
780F 00 CV 
7861 69 03 
9863 80 01 
9860 69 03 
786/ 80 02 
9869 69 01 
786ft 80 03 


9860 AO 01 
706F 84 02 
78/1 8C FO 02 
78/4 84 74 
70/6 A 7 26 
70/8 00 53 


70 /A A2 JO 
70/C 00 
70/0 20 f 6 AC 


7800 A 9 00 
7002 00 CO 

7004 A 7 00 

7006 20 0/ A1 

7007 A 9 00 

7000 00 00 

7080 AO 00 

7001 00 06 

7071 20 O'J AA 
7074 20 f 0 A 7 
707/ 

707 / A 4 01 


START 

LDA 

TAX 

INIT2 

8TA 
I NX 
BPL 


LOA 

LD/ 

BEG 

LDA 

NOBOOT 

8TA 

CLC 

ADC 

8TA 

ADC 

8TA 

A DC 

BTA 

ADC 

8 f A 


L DV 
ST / 
8TV 
BTV 

LOA 
B f A 


1 0 / 
Of Y 
JLP 


L DA 

8TA 

LDA 

J0R 

LDA 

0 f A 

1 DA 
BNfJ 

JBR 

JBR 

NAHM 

I DY 


INITIAL IZATION 


•0 


/RQPG, X 
INIT2 


440/ 

BOOT? 

NOBOOT 

4430 

OP0ADF ♦ 1 

41 

ME M A DP 4 J 

43 

PRGADR4 l 

43 

PC 1 MAX 

41 

P01M/1 


41 MAR Q 
L MAP ON 
CR0JNH 
PPNAI 0 
4RMARG 
RMARGN 


INCH 
Cl 02 NT 


40 

I I /HUM 

#LPAD 

PUSHUP 

#TUKDUE / 4 1 00 
f OKP TR4 1 

WARMS f 
WARM 
Ml MOLD 
BCLPRO 

f'POADP ♦ 1 


COUIIN CALCULATOR, BY C BHAW 


CARTRIDGE COLD/WARM START LOG 


, CLfAP ZERO PAGE RAM (480-4FF) 


t ULT UP INDIRECT POINTERS TO RAM 
» BUCCEBBF UL BOOT? 

> NO 

, YLU. ALLOW ROOM FOR DOS IN RAM 

> QF'8TK ADR MSB 

> ME MOR Y ADR M8B 

> PROMFM ADR MSB 

i 1 NO OF PROMEM ADR MSB 

f PC JMAX41 

/ 1 BET UP MAR0IN8 
iOO -> INHIBIT CURSOR 

' Ot 1 AUL 1 IS ALOE BRAIL WI fH OPERATOR PRE CEDENCt ALGP-I 
UPLN KE /BOARD, (SCREEN OPENED BY 08) 

t 0 

CHECK FOR ERROR???? 
t I NT T TO FIX 8 

1 IN IT OPERATOR STACK WITH l-PAD ON BOTTOM 

>DUNM CLEAR MI MS 11 WARM START 

> Cl I AR MEMORY RE GISTERS 

, JNMIA1 I/E PC TO SIART Of PROMl-M AND CLEAR PROMEM TO All 8T P ' S 

/ I NIT f J C IN ANY CASE 


I-L/ ¥ 


rnbhurti- 1 


COLLEEN CALCULATOR, BY C SHAW 


9899 84 

BA 



STY 

PC+1 

989B A2 

13 



LDX 

#20-1 

989D 



INIT4 



989D A9 

20 



LDA 

# ' 

989F 9D 

28 

05 


STA 

BLKBUF, X 

98A2 A9 

12 



LDA 

#'R-64 

98A4 9D 

3C 

05 


STA 

CTLRS, X 

98A7 CA 




DEX 


98A8 10 

F3 



BPL 

INIT4 

98AA 84 

94 



STY 

RPNALG 


98AC A9 B6 

LDA 

#STATLN 

98AE 20 04 9C 

- JSR 

STMSG2 

98B 1 20 74 A2 

JSR 

PUTCHS 

98B4 A9 D4 

LDA 

#STLN2 

98B6 20 Q4 9C 

JSR 

STMSG2 

98B9 20 27 9C 

JSR 

INVID 

98BC 20 74 A2 

JSR 

PUTCHS 

98BF 20 A6 AA 

JSR 

DSPALL 

98C2 A9 10 .. . 

LDA 

#16 

98C4 20 F4 A4 

JSR 

SBITS2 


• 1 N I T PC IN ANY CASE 


i INIT BLKBUF & CTLRS 


; DEFAULT IS ALGEBRAIC WITH OPERATOR PRECEDENCE 

INIT SCREEN DISPLAY 
; LINE 0-1 "ALG RAD . . . 


; CHANGE TOKBUF TO INVERSE VIDEO & RELOAD A, X, Y 


ALGP 


; STANDARD DISPLAY 


COLLEEN CALCULATOR, 


BY C SHAW 


98C7 

98C7 AD FO 02 

LOOP 

LDA 

CRSINH 

i BREAK KEY HIT* CAUSING CURSOR TO BE TURNED ON? 



98CA DO 06 


BNE 

MA I N02 

; NO 



98CC EE FO 02 


INC 

CRSINH 

i INHIBIT CURSOR 



98CF 20 93 AA 


JSR 

SEND 

i DISPLAY STACK, CHANGE PROG 



98D2 

MAIN02 






98D2 AS BB 


LDA 

PROG 




98D4 C9 01 


CMP 

#STOPRG 

i STORE PROGRAM? 



98D6 DO 65 


BNE 

NOSTOR 





• 

i 



STORE PROGRAM MODE 



98D8 20 5A 9C 


JSR 

DSPRG 

; DISPLAY OLD VALUE IN PROGRAM LOC 



98DS 20 51 9A 


JSR 

LEX 

* GET NEXT TOKEN FROM PROGRAM MEM 



98 DE 20 27 A2 


JSR 

PUTDEL 




98E1 A5 81 


LDA 

TOKCOD 

; CHECK FOR SPECIAL COMMAND 



98E3 A2 OA 


LDX 

#SPCLEN 




98E5 

L00P3 






98E5 DD E4 BA 


CMP 

SPCTBL, X 




98E8 DO OF 


BNE 

L00P4 




98EA A9 QJ 


LDA 

#1 

i "NUMBER" => SPECIAL COMMAND FOUND 



98EC 85 A2 


STA 

NUMFLG 

; ALWAYS ON SEPARATE LINE. 



98EE 20 31 99 


JSR 

DSPROG 




98F1 A5 81 


LDA 

TOKCOD 




98F3 20 05 AO 


JSR 

SUBCAL 

; CALL SUBROUTINE 



98F6 4C C7 98 


JMP 

LOOP 

; CONTINUE 




98F9 L00P4 




98F9 CA 

DEX 



98FA 10 £9 

BPL. 

L00P3 

i TRY NEXT ONE 

98 FC C9 8E 

CMP 

#NUMBER 

; NOT SPECIAL COMMAND => SAVE 

98FE DO 24 

BNE 

STPR40 

i NO. 

9900 20 85 A1 

JSR 

PCNCHK 

; CHECK PC TO SEE IF ROOM FOR 

9903 BO C2 

BCS 

LOOP 

; ERROR END OF MEM 

9905 20 A7 DD 

JSR 

FSTOR 

; STORE FRO IN PRGMEM 

9908 AO 07 

LDY 

#FPREC+1 


990A A9 8E 

LDA 

#NUMBER 


990C 91 B9 

STA 

(PC), Y 


990E AO 00 

LDY 

#0 


9910 91 B9 

STA 

(PC), Y 


9912 20 9D A1 

JSR 

PCADDN 

; MOVE PC PAST NUMBER 

9915 A9 16 

LDA 

#22 


9917. 85 54 

STA 

ROUICRS 



NUMBER? 










9919 

991B 


— 







85 55 
20 B8 9C 


STA 

JSR 


COLORS 

DG40 


i PTTXTP NUMBER 



991E 

20 

9D A2 

JSR 

PUTCRP 

9921 

4C 

C7 98 

JMP 

LOOP 

9924 



STPR40 


9924 

9926 

9928 

AO 

91 

20 

00 

B9 

99 A1 

LDY 
STA 
JSR 

#0 

(PC), Y 
PCINC 


COLLEEN CALCULATOR, BY C SHAW 


992B 20 31 99 
992E 


992E 4C C7 98 


JMPLOP 


JSR 


JMP 


DSPROG 

LOOP 


9931 

9931 A9 16 
9933 85 54 
9935 85 55 
9937 20 CO 9C 
993A 4C 9D A2 


DSPROG 


LDA 

STA 

STA 

JSR 

JMP 


#22 

ROWCRS 

COLORS 

PUTCMD 

PUTCRP 


i NOT A NUMBER 


i DISPLAY NEW TOKEN AFTER OLD 


■, SET UP CURSOR AND DISPLAY COMMAND 




COLLEEN CALCULATOR. BY C SHAW 


993D 

993D 20 92 A7 

9940 20 BB 9F 
9943 20 51 9A 
9946 90 06 

9948 20 9D 9F 
994B 4C C7 98 
994E 


NOSTOR 


JSR 


JSR 

JMP 


DSPSTK 

FPUSHO 

LEX 

N0ST10 

FPOPO 

LOOP 


; NOT STORE PROGRAM MODE 

; DISPLAY STACK 
j STORE OLD # IN CASE RPN 

; EXEC ERROR (OUT OF EXEC MODE) RELOAD X 


N0ST10 



994E 

A5 

CA 


LDA 


9950 

85 

CB 


STA 


9952 

A9 

00 


LDA 


9954 

85 

97 


STA 

c 

9956 

A6 

BE 


LDX 


9958 

8E 

66 

05 

STX 


995B 

85 

BE 


STA 

r 

995D 

A5 

81 


LDA 


995F 

C9 

8E 


CMP 

e 

9961 

DO 

OA 


BNE 


9963 

A5 

94 


LDA 


9965 

FO 

03 


BEQ 

m 

9967 

20 

86 

9F 

JSR 


996A 




MAIN04 


996A 

4C 

21 

9A 

JMP 


_MA1_N05_ 


996D 20 86 9F 


JSR 


CONFLG 

SCONFG 


i SAVE CONVERSION FLAG 


NOPFLG 

SSTFLG 

SSTOLD 

SSTFLG 

TOKCOD 

#NUMBER 

MAIN05 

RPNALG 

MAIN04 

FP0P1 

ENDWLP 


FP0P1 


i NUMBER? 

. NO. SKIP 

i RPN? 

. YES 

i NO. DISCARD NUMBER PUSHED ON STACK 


i JMDT NUMBER — 

.DISCARD # STORED ON STACK IN CASE RPN 


9970 AO 00 
9972 84 A2 


LDY 

STY 


#0 

NUMFLG 


9974 A5 81 
9976 20 06 A1 
9979 85 9A 


LDA 

JSR 

STA 


TOKCOD 

GETPRI 

CURPRI 


997B C9 OD 
997D 90 11 


CMP 

BCC 


#PHIGH 

MAIN40 


997F A5 81 
9981 20 05 AO 
9984 A 5 9 A 


LDA 

JSR 

LDA 


TOKCOD 

SUBCAL 

CURPRI 


; SPECIAL OR HIGH 
i EXECUTE SUBROUTINE 


9986 C9 OD 
9988 DO 03 
998A 20 EE A1 


CMP 

BNE 

JSR 


#PHIGH 

MAIN35 

FDSCOM 




j HLIGH 


998D 

998D 4C 21 


MAIN35 


9A 


JMP 


ENDWLP 



COLLEEN CALCULATOR . BY C SHAW 


9996 

BO 

06 


BCS 

MAIN50 

9998 

2Q 

B5 

9B 

JSR 

KEYERR 

999B 

4C 

25 

9A 

JMP 

ENDLP3 


COLLEEN CALCULATOR, BY C SHAW 


999E 

999E A5 fll 

99A0 20 05 AO 
99A3 20 EE A1 
99A6 4C 25 9A 


MAIN50 


LDA 

JSR 

JSR 

JMP 


i ( ) = NOT LEGAL IN RPN 


I 


TOKCOD 

SUBCAL 

FDSCOM 

ENDLP3 






; EXECUTE SUBROUTINE 


99A9 


MAIN60 

-i- 


; NOT RPN 

CHECK FOR 2 OPS IN A ROW 


99A9 

A6 

81 



LDX 

TOKCOD 




99AB 

EO 

8A 



CPX 

#LPAR 

i OP CAN BE FOLLOWED 

BY 7 ( 7 


QQAH 

nn 

nn 



BNE 

MAIN62 

i NOT 7 ( 7 



T7HU 

99AF 

L/W 

8A 




TXA 


i IS 7 ( 7 



R9RO 

PO 

n7 

At 


JSR 

PUSHOP 

i PUSH 7 ( 7 



99B3 

E6 

97 



INC 

NOPFLG 

; <-l LPAR CAN 7 T BE 

FOLLOWED BY BINARY OP 

(EXCEPT LPAR) 

99B5 

10 

6A 



BPL 

ENDWLP 

i JMP 



OQD7 




m a I N62 






77l> / 

99B7 

C9 

03 



CMP 

#PLRPAR+1 




OORO 

on 

nn 



BCC 

MAIN65 

; 7 ) ' AND 7 = 7 CAN BE 

FOLLOWED BY OP 


7'7J57 

99BB 

E6 

Uc. 

97 



INC 

NOPFLG 

; 2-VAR OPERATOR 



99BD 




MAIN65 






Qonn 

AA 

OA 



LDX 





ZTDll 

99BF 

MO 

FO 

v O 

OB 



BEQ 

WLOOP 




99C 1 

A9 

42 



LDA 

#TOPMSG 

; 2 BINARY OPS IN A 

ROW IS ILLEGAL: IGNORE 

1ST OP 


on 

R7 

9B 


JSR 

ERRSUB 




77U J 

99C6 

C.W 

20 

C4 

A1 


JSR 

POPOP 

; DISCARD PREV CP 



99C9 

20 

86 

9F 


JSR 

FP0P1 

; DISCARD EXTRA # 




99CC 

99CC 20 C4 

A1 

WLOOP 

JSR 

POPOP 

99CF 85 98 



STA 

PREVOP 

99D1 20 06 

A1 


JSR 

GETPRI 

99D4 85 99 



STA 

PRVPRI 

99D6 A5 81 



LDA 

TOKCOD 

99D8 C9 8B 



CMP 

#RPAR 

99DA DO 19 



BNE 

WLP10 

99DC A5 98 



LDA 

PREVOP 

99DE C9 8 A 



CMP 


99E0 FO 3F 



BEQ 

ENDWLP 

99E2 C9 8D 
99F4 DO 06 



CMP 

BNE 

#LPAD 

WLP05 

99E6 20 D7 

A1 


JSR 

PUSHOP 

99E9 4C 21 

9A 


JMP 

ENDWLP 

99EC 

99EC 20 05 

AO 

WLP05 

JSR 

SUBCAL 

99FF PO EE 

A1 


JSR 

FDSCOM 

99F2 4C CC 

99 


JMP 

WLOOP 

99F5 


WLP1Q 



99F5 C9 8C 



CMP 

#EQUAL 

99F7 DO 06 



BNE 

WLP20 

99F9 A5 98 



LDA 

PREVOP 

99FB C9 8A 



CMP 

#LPAR 

99FD FO CD 



BEQ 

WLOOP 


i TOKCOD = RPAR 7 ) 7 


; PREVOP = LPAR 7 < 


(NUMBER) => IGNORE PARENS 


» LPAD 7 > 7 => PUSH LPAD BACK ON BOTTOM OF STACK 


i EXECUTE SUBROUTINE OP 7 ) 7 => PERFORM OP & CONTINUE 


99FF 


WLP2Q 


; / </ => CONTINUE (CLOSE ALL OPEN LFARS ’ 

i not (TOKCOD = EQUAL AND PREVOP = LPAR) 


99FF A5 99 




LDA 


PRVPRI 


COLLEEN CALCULATOR# BY C SHAW 


9A01 C5 9A 


CMP 

CURPRI 

9A03 90 OB 


BCC 

WLP30 

9A05 A5 98 


LDA 

PREVOP 

9A07 20 05 AO 


JSR 

SUBCAL 

9 AO A 20 EE A1 


JSR 

FDSCOM 

9A0D 4C CC 99 


JMP 

WLOOP 

9A10 

WLP30 



9A10 A5 98 


LDA 

PREVOP 

9A12 20 D7 A1 


JSR 

PUSHOP 

9A1 5 A5 81 


LDA 

TOKCOD 

9A1 7 C9 8C 


CMP 

#EQUAL 

9A1 9 F 0 06 


BEG 

ENDWLP 

9A1B 20 D7 A1 


JSR 

PUSHOP 

9A1E 20 BB 9F 


JSR 

FPUSHO 

9A21 

9A21 A5 97 

ENDWLP 

EDA 

NOPFI a 

9A23 85 96 
9A25 

ENDLP3 

STA 

OPFLG 

9A25 AD 66 05 


LDA 

SSTOLD 

9A28 FO 06 


BEQ 

ENDLP4 

9A2A A9 00 


LDA 

#0 

9A2C 85 BB 


STA 

PROG 

9A2E 85 BE 
9A30 

ENDLP4 

STA 

SSTFLG 

9A30 A5 CA 


EDA 

CONFLG 

9A32 38 


SEC 


9A33 E5 CB 


SBC 

SCONFG 

9A35 DO 02 


BNE 

ENDSKP2 

9A37 85 CA 
9A39 

ENDSKP2 

STA 

CONFLG 

9A39 4C C7 98 


JMP 

LOOP 


i PRVPR I >=CURPR I 
i EXECUTE SUBROUTINE 


i PRVPRICCURPRI 


i LPAD => DONE 

iNOT '=' => SAVE CURRENT OP & PUSH STACK 


i NO. 

; YES. GO BACK TO IMMEDIATE MODE 


IS CQNFLG UNCHANGED? 


s CONFLG CHANGED => DO NOTHING 
i CONFLG NOT CHANGED => CLEAR 


END OF MAIN PROGRAM LOOP 


o 


COLLEEN CALCULATOR * BY C SHAW 


r 




9A3C 




LX INIT 



9A3C 

A9 

OQ 



LDA 

#0 

9A3E 

85 

82 



STA 

TOKPTR 

9A40 

8D 

FO 

02 


STA 

CRSINH 

9A43 

A9 

02 



LDA 

#LMARG+1 

9A45 

85 

55 



STA 

COLCRS 

9A47 

A9 

17 



LDA 

#23 

9A49 

85 

54 



STA 

ROWCRS 

9A4B 

A9 

3E 



LDA 

# '> 

9A4D 

20 

31 

A2 


JSR 

PTCHR 

9A50 




EXEC20 



9A50 

60 




RTS 


9A51 




LEX 



9A51 

A9 

00 



LDA 

#0 

9A53 

85 

C7 



STA 

ERRFLG 

9A55 

A5 

BB 



LDA 

PROG 

9A57 

C9 

02 



CMP 

#EXEC 

9A59 

DO 

1 A 



BNE 

NOEXEC 

9A5B 

20 

27 

A2 


JSR 

PUTDEL 

9A5E 

20 

5A 

9C 


JSR 

DSPRG 

9A61 

20 

9D 

A2 


JSR 

PUTCRP 

9A64 

20 

61 

At 


JSR 

NCHKLD 

9A67 

BO 

E7 



BCS 

EXEC20 

9A69 

DO 

05 



BNE 

EXEC 10 

9A6B 

20 

9D 

A1 


JSR 

PCADDN 

9A6E 

18 




CLC 


9A6F 

60 




RTS 


9A70 




EXEC 10 



9A70 

20 

99 

A1 


JSR 

PCINC 

9A73 

18 




CLC 


9A74 

60 




RTS 


9A75 




NOEXEC 



9A75 

20 

3C 

9A 


JSR 

LX INI T 

9A78 

20 

26 

AO 


JSR 

GTCHR 

9A7B 

C9 

20 



CMP 

#' 

9A7D 

FO 

D2 



BEQ 

LEX 

9A7F 

C9 

9C 



CMP 

#DELLIN 

9A81 

FO 

CE 


i 

i 

/ 

BEQ 

LEX 

9A83 

A2 

OD 



LDX 

#TQKCLN 

9A85 




LXLP20 



9AQ5 

DD 

C C 

BA 


CMP 

TOKCHRi X 

9A88 

DO 

08 



BNE 

LEX30 


LEXICAL ANALYZER 

FETCH NEXT TOKEN FROM TERMINAL AND 

SET UP TOKEN CODE IN TOKCQDi PUT STRING IN TQKBUF 

; SUBROUTINE TO DISPLAY SET UP CURSOR 

; CURSOR ON 

; START AT BOTTOM OF SCREEN 
i TEST CHAR 


i CLEAR FLAG => NO ERROR THIS TIME 


i EXECUTING PROGRAM? 


i CLEAR BOTTOM LINE - SET UP CURSOR FOR DISPLAY 
DISPLAY PROGRAM ADDR & CONTENTS IF TRACE 

CR ON PRINTER ONLY _l 

YES. LOAD TOKEN AND CHECK FOR NUMBER 
ERROR 

^ 

NUMBER MOVE PC PAST # 

IF END OF PROG MEM EXECUTE INSTRUCTION BEFORE STOPPING 


; NOT NUMBER 
; CLEAR ANY ERROR 


; DISPLAY 
; A=NEXT CHAR 


INIT CURSOR 


CHECK FOR SINGLE CHAR TOKENS 


COLLEEN CALCULATOR. BY C SHAW 


- 

9A8A 

rard 

BD DA 
R9 81 

BA 

LDA 

STA 

TOKTBL. X 
TOKCOD 

4 " 

9A8F 

4C 85 

9B 

JMP 

LXRTN2 

% 1 

9A92 


LEX30 



<r 

9A92 

9A93 

CA 

10 FO 


DEX 

BPL 

LXLP20 





COLLEEN CALCULATOR. BY C SHAW 


Moore Business Forms. Inc. sv I417T ITl 2 


COLLEEN CALCULATOR/ BY C SHAW 


r 


9A95 C9 41 
9A97 90 4C 
9A99 C9 5B 
9A9B BO 48 

9A9D 20 E2 A2 
9AA0 

9AA0 20 F3 A2 


9AA3 F.Q 4F 

9AA5 

9AA5 20 24 A1 


9AA8 A6 88 
9AAA DD 00 05 

9AAD 90 26 

9AAF DO 43 
9AB 1 E8 
9AB2 86 S8 


9AB4 E4 82 
9AB6 90 ED 
9AB8 FO EB 


9ABA-. 8 4 aB 

9ABC E6 82 
9ABE 20 26 AO 


9 AC 1 C9 9C 
9AC3 FO 8C 


CMP 

BCC 

CMP 

BCS 

JSR 


KEYLP 1 


JSR 


BEQ 


KEYLP2 


9AC5 
9 AC 7 
9_AC9 
9ACB 
9ACD 
9ACF 
9AD1 
9AD3 

9AD5 


A4 8B 
C9 41 
90 10 


BNE 

INX 

STX 

CPX 

BCC 

BEQ 

STY 

INC 

JSR 

CMP 

BEQ 

LDY 

CMP 

BCC 


C9 5B 
BO OC 
A6 88 


CMP 

BCS 

LDX 


E4 8A 
90 DO 


KEY20 


9AD5 20 FF A2 
9AD8 4C AO 9A 


CPX 

BCC 


JSR 

JMP 


9ADB 

9ADB A5 8F 
9 ADD 85 81 
9ADF 20 D7 A2 
9AE2 4C 7F 9B 


ENDL15 





LDA 

STA 

JSR 

JMP 




# 'A 

LXNMCK 
#'Z + 1 
LXNMCK 

UNPINT 


UNPNUM 

LXERR2 


JSR LDCHR 

LDX KEYCHR 

CMP TOKBUF, X 

BCC KEY20 


LXERR2 

KEYCHR 

TOKPTR 
KEYLP 2 
KEYLP2 

LDNBSV 

TOKPTR 

GTCHR 

#DELLIN 

LEX 

LDNBSV 
# ' A 

ENDL15 


#'Z + 1 
ENDL15 


KEYLN2 

KEYLP2 


UNPNXT 
KEYLP 1 


KEYCNT 

TOKCOD 

SAVCHR 

LEXRTN 


CHECK FOR KEYWORD (ALPHA) 


END OF LIST IF 0 COUNT=>ERROR 


;N0 MATCH 


GONE FAR ENOUGH 


i NO MATCH: HAVE GONE TOO FAR - GIVE ERROR MSG 


j NEED TO FETCH MORE CHARS FROM TERMINAL 
;SAVE PREVIOUS CHAR 


■ 


- 


CHAR STRING (INCOMPLETE KEYWORD MATCH) 


; NOT END OF WORD => CONTINUE 


; TRY NEXT WORD IN LIST 


; CONTINUE 







COLLEEN CALCULATOR, BY C SHAW 


9AE5 

9AE5 C9 2E 
9AE7 DO OF 

9AE9 A6 87 
9AEB DO 07 
9AED E6 82 
9AEF 20 A5 AO 
9AF2 90 IE 

9AF4 

9AF4 A9 4C 
9AF6 DO 74 

9AF8 

9AF8 20 51 AO 
9AFB BO F7 


9AFD 

9AFD A6 82 
9AFF EO OF 
9B01 BO 67 
9B03 20 A5 AO 
9B06 90 F5 


l 

LXNMCK 


LXERR2 


LXNDOT 


LXLP40 


TOKPTR 

#NUMLEN+1 

LENERR 

GETDHO 

LXLP40 


9B08 C9 2E 
9B0A DO 11 
9B0C,Aib,,87_ 


CMP 

BNE 

LDX 


LXND2 

DHOFLG 


9B0E DO E4 


9B 1 Q E 6 8 2 


LXERR2 

TOKPTR 


9312 

9B12 A6 82 
9B14 EO OF 
9B16 DO 52 
9B18 20 A5 AO 
_9BJJJ_9£LjEJ5L 


LXHVDT 


LDX 

CPX 

BCS 

JSR 

BCC 


TOKPTR 

#NUMLEN+i 

LENERR 

GETDHO 

LXHVDT 


9 BID 

9B1D A6 87 


LXND2 


DHOFLG 


9B1F DO 24 
9B21 C9 45 


LXNUM 


#'E 


9B23 DO 20 


9B25 E6 82 


BNE 


LXNUM 


TOKPTR 


9B27 20 A5 AO 
9B2A 90 OF 

9B2C C9 2B 
9B2E FO 04 
9B30 C9 2D 
9B32 DO 2F 
9B34 

9B34 E6 82 

9B36 20 A5 AO 
9B39 BO B9 


JSR 

BCC 

CMP 

BEQ 

CMP 


GETDHO 

LXGT2 


LX50 


BNE 

INC 

JSR 

BCS 


LX60 

TOKPTR 

GETDHO 

LXERR2 


CHECK FOR NUMBER 


CMP 

BNE 

# 

LXNDOT 


LDX 

BNE 

INC 

DHOFLG 

LXERR2 

TOKPTR 

i DEC? 
i NO. L # 

i SAVE " . " 

JSR 

BCC 

GETDHO 

LXHVDT 

i GET DEC, 

LDA 

BNE 

#KEYMSG 

LEXERR 

i # WITH 

i JMP 

JSR 

BCS 

DHOCHK 

LXERR2 

i NO MATCH 


HAVE NUMBER 


; LIMIT TO NUMLEN CHARS 
i KEEP GETTING DIGITS 


^ DEC? 


iNQ. ' NOT ALLOWED 

,-SAVE ‘L ” 


CHECK FOR BUFFER OVERFLOW 
LIMIT TO NUMLEN CHARS 
TOO MANY DIGITS 


; OCTAL OR HEX => NO EXP ALLOWED 
; DECIMAL CHECK FOR EXPONENT 


; NO E-> END OF NUMBER 
i SAVE E 


i HAVE DIGIT 

; NOT A DIGIT. '+' OR / - / ? 

; E IS NOT FOR EXPONENTS DONE WITH NUMBER 
;E IS FOR EXPONENT => SAVE / + / OR — 


COLLEEN CALCULATOR, BY C SHAW 


Ru»ln»u I oim 


9B34 E6 82 
9B36 20 A5 AO 
9B39 BO B9 


U A v/V/ 


INC 

JSR 

BCS 


COLLEEN CALCULATOR, BY C SHAW 


TOKPTR 

GETDHO 

LXERR2 


iE IS FOR EXPONENT => SAVE '+' OR 


9B3B 

9B3B 20 A5 AO 
9B3E BO 05 
9B40 20 A5 AO 
9B43 90 25 _ 

9B45 

9B45 20 D7 A2 
9B48 

9B48 AO 00 
9B_4A__A9LJ2B 


9B4C 91 82 
9B4E 20 2B A4 


9B51 EE FO 02 
9B54 A5 BB 
9B56 C9 Q1 


9B58 FO 03 
9B5A 20 57 9D 
9B5D 


9B5D A9 8E 
9B5F 85 81 


9B61 DO 4D 


LXGT2 


LXNUM 

LXN2 


JSR 


INC 

LDA 

CMP 


BEQ 

JSR 


LXN3 


LDA 

STA 


BNE 


GETDHO 

LXNUM 

GETDHO 

LENERR 


SAVCHR 


(TOKPTR), Y 
SNUMB 


CRSINH 

PROG 

#STOPRG 


LXN3 

FDSPO 


#NUMBER 


LXRTN3 


i get 2ND DIGIT OF EXPONENT 
; NO 2ND DIGIT 

i HAVE 2ND DIGIT. IS THERE 3RD? 
i ERROR - EXPONENT TOO LARGE 


SAVE LAST CHAR FOR NEXT TOKEN 


ASCII -> FP 


; CURSOR OFF 


i STORE PROGRAM => NO DISPLAY 
; DISPLAY # OTHERWISE FOR ALL LEX CALLS 


J JMP 


9B63 

9B63 20 D7 A2 
9B66 C6 82 

LX60 

JSR 

— DEC 

SAVCHR 

TOKPTR 

; SAVE E FOR NEXT TOKEN 

9E68 10 DB 

BPL 

LXNUM 

; JMP 

9B6A 

LFNFRR 



9B6A A9 9D 
9B6C 

9B6C AO 01 

LDA 

LEXERR 

-LDY 

#DIGMSG 

#1 

i TOO MANY DIGITS 

9B6E 8C FO 02 
9B71 48 
9B 72-20 08 A? 

STY 
PHA 
JSR 

CRSINH 
PTC R PL 

; CURSOR OFF 

9B75 68 
9B76 20 B7 9B 
— 9B79 20 OB , A2 

PLA 

JSR 

ERRSUB 

PUTCR 

: FXTRA CR 

9B7C 4C 51 9A 

JMP 

LEX 

; TRY AGAIN 

9B7F 

9B7F AO 00 
9B81 A9 9B 

LEXRTN 

LDY 
_ JLDA 

#0 

#CR 


9B83 91 82 
9B85 

9B85 EE._EL. 02 

STA 

LXRTN2 
INC 

(TOKPTR), Y 
CRSINH 

_J CURSOR OFF 

9B88 A5 BB 

9B 8 A _C 9 Q1 

LDA 
CMP 

PROG 

#STOPRG 


9B8C FO 22 

BEQ 

LXRTN3 

; DON'T DISPLAY IF STORE PROGRAM MODE 

9B8E -A5 BD 

LDA 

DSPFLG 


9B90 DO IE 

BNE 

MAIN21 

i NO DISPLAY 



COLLEEN CALCULATOR, 

BY C SHAW 



9B92 20 47 A3 


JSR 

UNPKEY 

9B95 A6 A2 


LDX 

NUMFLG 

9B97 DO 04 


BNE 

MAIN15 

9B99 A9 13 


LDA 

#19 

9B9B DO 06 


BNE 

MAIN20 

9B9D 

MAIN15 



9B9D A9 16 


LDA 

#ROWCMD 

9B9F 85 54 


STA 

ROWCRS 

9BA1 A9 01 


LDA 

#1 

9BA3 

MAIN20 



9BA3 20 6F 9F 


JSR 

PUTBLK 

9BA6 A9 16 


LDA 

#cni CMn 

9BA8 85 55 


STA 

COLORS 

9BAA 20 20 9C 


JSR 

TOKINT 

9BAD 20 05 A2 


JSR 

PTTXTP 


UNPACK KEYWORD TOKNUM INTO TQKBUF 


;# OF BLANKS NEEDED TO GET COMMAND IN PROPER COL ON PRINTER 
iJMP PREVIOUS TOKEN WAS NOT A NUMBER 

i PREVIOUS TOKEN WAS A NUMBER 


> PUT A BLANKS ON PRINTER ONLY 


i SET UP X-TOKPTR, A=TQKBUF, Y=T0KBUF/256 


9BB0 


MAIN21 


9BRQ 


9BB0 20 27 A2 
9BB3 IS 


9BB4 60 


JLXHTN3 


JSR 

CLC 


■fluff 


RTS 


PUTDEL 


; DELETE BOTTOM LINE 
; NO ERROR 

-f POWER UP INIT: JUST RETURN 


END OF LEX 








COLLEEN CALCULATOR, BY C SHAW 










COLLEEN CALCULATOR, BY C SHAW 


9BB5 

9BB5 

A9 

4C 

KEYERR 

LDA 

#KEYMSG 

9B87 



ERRSUB 

i 

i 



9BB7 

A6 

C7 

LDX 

ERRFLG 

9BB9 

DO 

1A 


BNE 

ERRRTN 

9BBB 

E6 

C7 


INC 

ERRFLG 

9BBD 

AA 



TAX 


9BBE 

AS 

54 


LDA 

ROWCRS 

9BC0 

48 



PHA 


9BC1 

A5 

55 


LDA 

COLCRS 

9BC3 

48 



PHA 


9BC4 

8A 



TXA 


9BC5 

48 



PHA 


9BC6 

20 

D7 9B 


JSR 

ERRSB2 

9BC9 

68 



PLA 


9BCA 

AO 

BC 


LDY 

#ERRTBL/256 

9BCC 

20 

F2 9B 


JSR 

PTMSG2 

9BCF 

68 



PLA 


9BD0 

85 

55 


STA 

COLCRS 

9BD2 

68 



PLA 


9BD3 

85 

54 


STA 

ROWCRS 

9BD5 

9BD5 

38 


ERRRTN 

SEC 


9BD6 

60 



RTS 



9BD7 




ERRSB2 


9BD7 

A9 

00 


LDA 

#0 

9BD9 

85 

BD 


STA 

DSPFLG 

9BDB 

A5 

BB 


LDA 

PROG 

9BDD 

29 

01 


AND 

#1 

9BDF 

85 

BB 


STA 

PROG 

9BE1 

A2 

01 


LDX 

#1 

9BE3 

8E 

FO 

02 

STX 

CRSINH 

9BE6 

A9 

80 


LDA 

#$80 

9BE8 

20 

3A 

9C 

JSR 

SOUND 


9BEB 

20 

97 A2 


JSR 

PTCRPN 

9BEE 

A9 

BO 

i 

LDA 

#ERRMS 


9BF0 



PUTMSG 

- - - * « — 



9BF0 

AO 

BD 

LDY 

#PR0MSG/256 

9BF2 

9BF2 

A6 

BD 

PTMSG2 

LDX 

DSPFLG 

9BF4 

DO 

30 


BNE 

SETRTN 

9BF6 

A2 

02 


LDX 

#2 

9BF8 

86 

55 


STX 

COLCRS 

9BFA 

A2 

17 


LDX 

#23 

9BFC 

86 

54 


STX 

ROWCRS 


OUTPUT "ERROR - "j MESSAGE A=LSB OF ADDRESS 

RETURN CS *> ERROR 

i RETURN IF ERROR ALREADY DISPLAYED 
i <- 1 SET FLAG 


» SAVE OLD CURSOR LOC SO IT CAN BE RESTORED LATER 


i DO SOUND, SET UP TO OUTPUT "ERROR - " 
i RELOAD MESSAGE ADDR 

i PUT TEXT ON SCREEN AND PRINTER 


i TURN DISPLAY ON 


; STOP EXECUTION, IF ANY 


; CURSOR OFF 
i OUTPUT ERROR SOUND 


; PUT CR ON PRINTER IF PREVIOUS WAS NUMBER 


PUT "ERROR" 

; DISPLAY PACKED MESSAGE "ERROR -" 


i PUT MESSAGE ON BOTTOM LINE OF SCREEN & PRINTER 
INPUT: A=MSG LSBYTE 

i MSG MSB 

i INPUT A=MSG LSB, Y=MSG MSB 


colleen calculator, by C SHAW 


9BFE 20 06 9C 
9C01 4C 03 A2 

9C04 AO BD 

9C06 

9C06 A6 BD 
9C08 DO 1C 
9C0A A2 00 
9C0C 86 82 
9C0E 83 8C 
9C10 84 8D 
9C12 AO 00 
9C14 84 80 
9C16 B 1 8C 
9C18 85 8A 
9C 1 A 98 
9C1B 20 IF A3 
9C1E 85 82 
9C20 

9C20 A6 82 
9C22 

9C22 A9 00 


9C35 


9C35 CA 
9C36 10 FI 
9C38 30 E6 


STMSC2 
SET MSG 


TOKINT 


TKINT2 


JSR 

JMP 

LDY 

LDX 

BNE 

LDX 

STX 

STA 

STY 

LDY 

STY 

LDA 

STA 

TYA 

JSR 

STA 

LDX 

LDA 


9C24 AO 05 



LDY 

9C26 
9C26 60 


SETRTN 

RTS 

9C27 A6 82 
9C29 


INVID 

CHSLP 

LDX 

9C29 BD 00 
9C2C C9 20 
9C2E FO 05 

05 


LDA 

CMP 

BEQ 

9C30 09 80 
9C32 9D 00 

05 


ORA 

STA 


INV10 


DEX 

BPL 

BMI 


SETMSG 

PTTXTP 

4PR0MSG/256 

DSPFLC 
SETRTN 
# TOKBUF 
TOKPTR 
PKPTR 
PKPTR+1 
#0 

LFRT 

(PKPTR). Y 
KEYLN2 

UNPCK2 

TOKPTR 

TOKPTR 

#TOKBUF 

#T0KBUF/256 


TOKPTR 


TOKBUF, X 

#' 

INV10 


#$80 

TOKBUF# X 


CHSLP 

TOKINT 


J SET UP MSG IN TOKBUF 

* PUT TOKBUF ON SCREEN & PRINTER 

* SET UP MSG IN TOKBUF - A s HSC I cn Mcrv u __ 
.SET UP MESSAGE IN TOKBUF: A-MSG LsS 


; SUBROUTINE TO LOAD A. X. Y FOR TOKBUF DISPLAY 


i CHANGE TOKBUF TO INVERSE VIDEO (EXCEPT BLANKS) S< LOAD A, X, Y FOR DISPLAY 


; IF BLANK THEN NO INVERSE VIDEO 
; INVERSE VIDEO BIT 


i JMP 


LOAD A, X. Y 


9C3A 


9C3A 8D 00 D2 
9C3D A9 AF 
9C3F 8 D 01 D2 
9C42 AO 80 
9C44 AA 
9C45 


9C45 CA 
9C46 DO FD 
9C48 88 


9C49 DO FA 
9C4B 8C 01 D2 

g£4E 60 


SOUND 


STA 

LDA 

STA 


LDY 

TAX 


.PI 


DEX 

BNE 


BNE 

STY 


AUDF1 

#$AF 

AUDC1 

#$80 


SNDLP1 


SNDLP1 

AUDC1 


i DELAY 





; TURN SOUND OFF 








— 





CD! I FFN OAJ nil ATDR . RV r CUALJ 



COLLEEN CALCULATOR, BY C SHAW 


9C4F 

9C4F A2 OD 
9C51 A9 20 
9C53 

9C53 9D 00 05 
9C56 CA 
9C57 10 FA 
9C59 60 


CLNUli 


LDX #NUMLEN-1 

LDA # ' 

CLNLP 

STA TOKBUF, X 

DEX 

- BPJ CLNLP 

RTS 


; CLEAR TOKBUF SO NUMBER 
RETURN A= ' X=$FF 


CAN BE LOADED 
UNCHANGED 




COLLEEN CALCULATOR, BY C SHAW 


9C5A 


DSPRG 


9C5A A5 BA 
9C5C C5 D3 

9C5E 90 Q 5 

9C60 

9C60 A9 B6 
9C62 AC B79B 


EPERR 


LDA 

CMP 

BCC 

LDA 

JMP 


9C65 

9C65 A6 BD 

9C67 DO 76 
9C69 20 BB 9F 
9C6C A5 BA 
9C6E 38 
9C6F E5 D1 

9C71 85 -D5 

9C73 A5 B9 
9C75 85 D4 
9C77 20 AA D9 
9C7A 20 E6 D8 
9C7D 20 9D 9F 


DG10 


LDX 

BNE 

JSR 


9C80 20 97 A2 


JSR 


9C85 
9C85 C8 

9C86 B1 F3 

DGLP1 

I NY 
LDA 

9C88 10 FB 


BPL 

9C8A 29 7F 


AND 

9C8C A2 03 


LDX 

9C8E DO 02 


BNE 

9C90 

DGLP2 


9C90 B 1 F3 


LDA 

9C92 

DG20 


9C92 9D 00 05 


STA 

9C95 CA 


DEX 

9C96 88 


DEY 

9C97 10 F7 


BPL 

9C99 8 A 


TXA 

9C9A 30 08 


BMI 

9C9C A9 30 


LDA 

9C9E 

, DGLP3 


9C9E 9D 00 05 


STA 

9CA1 CA 


DEX 

9CA2 10 FA 


BPL 

9CA4 

DC 30 


9CA4 20 27 A2 


JSR 

9CA7 E6 55 


INC 

9CA9 20 22 9C 


JSR 

9CAC A2 04 


LDX 

9CAE 20 Afi A2 


JSR 

9CB i 20 61 A 1 


JSR 

9CB4 BO 2B 


BCS 

9CB6 DO 06 


BNE 

9CB8 

DC40 


9CB8 20 86 9D 


JSR 

9CBB 4C D4 9C 


JMP 


PC + 1 
PC 1 MX 1 
DG10 

#EPMSG 

ERRSUB 


DSPFLG 
DG80 
FPUSHO 
PC + 1 

PRGADR+1 

FRO+l 

PC 

FRO 

IFP 

FASC 

FPOPO 

PTCRPN 

#*FF 


(INBUFF), Y 
DGLP1 

#*7F 

#3 

DG20 

< INBUFF), Y 
TOKBUF, X 


DGLP2 

DC 30 
• '0 

TOKBUF. X 

DQLP3 

PUTDEL 

COLORS 

TKINT2 

•4 

PTCHSP 

NCHKLD 

DGRTN 

DG60 

T OK NUN 
DC 70 


COLLEEN CALCULATOR, BY C SHAW 


; DISPLAY PROGRAM ADDRESS, CURRENT TOKEN 
RETURN CS=>ERROR CC=>NQ ERROR 


; PAST END OF MEM 


; NO DISPLAY IF EXEC & NOTRACE 
; SAVE X 

; RELOAD PC MSB 

i NORMALIZE TO 0 BASE INSTEAD OF PRGMEM 


i 0 -> 1023 IN (INBUFF) IN ASCII 
i RELOAD X 

; PUT CR ON PRINTER IF PREVIOUS WAS 4, NUMFLGOO 
; RIGHT JUSTIFY IN TOKBUF, PUT O'S AT LEFT 
i FIND END OF BUFFER 


; MASK OFF END OF BUFFER INDICATOR 
i JMP 

i MOVE TO TOKBUF 


l PAD WITH O'S 


i ONE SPACE AT BEGINNING OF LINE 
, A<- TOKBUF, YO-TOKBUF/256 


.LOAD TOKEN CODE FROM PRGMEM. CHECK FOR NUMBER 

I ERROR 
.NOT NUMBER 


i FP NUMBER -> ASCII IN TOKBUF 



COLLEEN CALCULATOR, BY C SHAW 


r 


c 

c 


9CE6 


FPBIN 


9CE6 A5 D4 

9CE8 85 AO 
9CEA 10 04 
9CEC 29 7F 
9CEE 85 D4 
9CF0 

9CF0 20 2E 9D 
9CF3 BO 61 
9CF5 A5 AO 
9CFZ_JLO^Qa 


FP 10 


LDA 

STA 

BPL 

AND 

STA 

JSR 

BCS 

LDA 

BPL 


FRO 

NEGFLG 
FP 1 0 
#*7F 
FRO 

FPBNCK 

FP21 

NEGFLG 

FP20 


; CONVERT FRO TO 32 BIT BINARY * 

THEN COMPARE WITH BITBIN TO SEE IF IT IS IN TNF 
RANGE SPECIFIED BY BITINT. 


; TAKE ABSOLUTE VALUE 


; CONVERT FP TO BINARY 
; OVERFLOW 


9CF9 20 06 A4 
9CFC 


JSR 


S2CMP 


9CFC 


9 CFC A5 BO 
9CFE 30 1 1 


9D00 

9D02 


A2 


00 


FP 20 


BINCHK 


; NEG # - TAKE COMP, ADD 1 


; CHECK TO SEE IF BINARY IS WITHIN RANGE 
AS SPECIFIED BY CURRENT BITS. 

CS *> ERROR CC => NO ERROR 


LDA 

BMI 


BINARY 
B INC 10 


LDX 


#0 


; POSITIVE 


BINLP1 


9D04 D5 A4 
9D06 FO 02 
9D08 BO 16 


CMP 

BEQ 

BCS 

— u M inniv M A 

BITBIN, X 

BINOK 

BOERR 

_j TOO LARGE 

9D0A 
9D0A E8 
9 DOB EO 04 

BINOK 

INX 

CPX 

#4 


9D0D DO F3 


BNE 

BINLP1 


9D0F 18 


CLC 



9D10 60 


RTS 


i OK 

9D1 1 

B INC 10 




9D11 A2 00 


LDX 

#0 


9D13 

BINLP2 




9D1 3 B5 EG 


LDA 

BINARY, X 


9D15 D5 AC 


CMP 

BINMIN, X 


9D1 7 90 07 


BCC 

BOERR 

i TOO SMALL 

9D1 9 ES 


INX 



9D1 A EO 04 


CPX 

#4 


9D1C DO F5 


BNE. 

BINLP2 


9D1E 18 


CLC 



9D1F 60 


RTS 


i OK 

9D20 

BOERR 




9D20 A2 03 


LDX 

#3 

; CLEAR BINARY BECAUSE 

9D22 A9 00 


LDA 

#0 


9D24 95 BO 

BINLP3 

STA 

BINARY, X 


9D26 CA 


DEX 



9D27 10 FB 


BPL 

BINLP3 


9D29 A9 5C 


LDA 

#BQMSG 

; BINARY UNDERFLOW 

9D2B 4C B7 9B 


JMP 

ERRSUB 





COLLEEN CALCULATOR , BY C SHAW 


COLLEEN CALCULATOR# BV C SHAW 


9D2E 



FPBNCK 



i CONVERT POSITIVE FRO TO 4 BYTE BINARY 




, ■■ , , . - ■ ■ 



CLEAR BINARY IF TOO LARGE AND SET CARRY 

9D2E 20 

BB 

9F 


JSR 

FPUSHO 

i SAVE COPY OF # FOR MOD 

9D31 A2 

30 



LDX 

#065536 


9D33 AO 

BA 



LDY 

#065536/256 


9D35 20 

89 

DD 


JSR 

FLDOR 


9D3S 20 



JSR 

SMQD 

iFRO = X MOD 65536 (2 LOWER BYTES) 

9D3B 20 

D2 

D9 


JSR 

FPI 

# MODFAC = INT ( X/65536 ) <2 UPPER BYTES) 

9D3E A5 

D4 



LDA 

FRO 

i LSB 

9D40 85 

B3 



STA 

BINARY-*- 3 


9D42 A5 

D5 



LDA 

FRO+1 


9D44 85 

B2 



STA 

BINARY+2 


9D46 20 

12 

9F _ 


JSR 

FLDQM 

jLOAD MODFAC 

9D49 20 

D2 

D9 


JSR 

FPI 


9D4C BO 

02 



BCS 

BDERR 

; ERROR: OVERFLOW 

9D4E A5 B4 



LDA 

FRO 


9D50 85 

B 1 



STA 

B INARY+1 


9D52 A5 

D5 



LDA 

FRO+1 

; MSB 

9B54 85 

BO 



STA 

BINARY+O 


9D56 60 



FP21 

RTS 




JT ITl-J 


COLLEEN CALCULATOR, BY C SHAW 


9D57 


FDSPO 


9D57 A5 BD 
9D59 DO IF 

LDA 

BNE 

DSPFLG 

DSPRTN 

9D5B 20 27 A2 

JSR 

PUTDEL 

9D5E 20 86 9D 

JSR 

-J DAYDSP 

TOKNUM 

9D61 20 97 A2 

JSR 

PTCRPN 

9D64 A9 04 

LDA 

#4 

9D66 20 6F 9E 

JSR 

PUTBLK 

9D69 A9 07 

LDA 

#7 

9D6B 85 55 

STA 

COLCRS 

9D6D 20 20 9C 

- .. JSR 

TOKINT 

9D70 20 AB A2 

JSR 

PTCHSP 

9D73 20 OB A2 

JSR 

PUTCR 

9D76 A9 01 

LDA 

#1 

9D78 85 A2 
9D7A 60 

STA 

DSPRTN RTS 

NUMFLG 


CONVERT FRO TO ASCII AND DISPLAY 

i RETURN IF NO DISPLAY 
i CLEAR BOTTOM LINE & SET UP CURSOR 
; CONVERT FRO TO ASCII IN TOKBUF 
; DISPLAY TOKBUF ON SCREEN AND PRINTER (IF ON) 

; PUT CR ON PRINTER IF PREVIOUS THING WAS NUMBER 
• PUT 4 BLANKS ON PRINTER ONLY 


i SET UP A-TOKBUF, X=TOKPTR, Y=T0KBUF/256 


9D7B 

9D7B 85 55 
j9D_Z D 5Q 86 9D 


9D80 

9D80 20 20 9C 
9D83 4C 74 A2 


FDSP1 


STA 

JSR 


FDSP2 


JSR 

JMP 


COLCRS 

TOKNUM 


TOKINT 

-F UT CHS 


; DISPLAY NUMBER ON SCREEN ONLY, IN COL A 


; DISPLAY TOKBUF # ON SCREEN WHEREVER CURSOR IS 
i SET UP A=TOKBUF, X=TOKPTR, Y=TQKBUF/256 


• COLLEEN CALCULATOR, BY C SHAW 


COLLEEN CALCULATOR, BY C SHAW 


9D86 




TOKNUM 


i CONVERT 

9D86 

A5 

BD 



LDA 

DSPFLG 

9D88 

DO 

FO 



BNE 

DSPRTN ; 

9D8A 

20 

BB 

9F 


JSR 

FPUSHO i 

9D8D 

A5 

87 



LDA 

DHOFLG 

9D8F 

FO 

49 


_ i 

BEQ 

FDS05 

9D91 

20 

7D 

A6 


JSR 

STRUNC ; 

9D94 

20 

E6 

9C 


JSR 

FPBIN 

9D97 

90 

OA 



BCC 

T0KN10 

9D99 

A9 

5C 


# 

LDA 

#BQMSG ] 

9D9B 

AO 

BC 



LDY 

#ERRTBL/256 

9D9D 

20 

06 

9C 


JSR 

SETMSG ; 

9DA0 

4C 

OB 

9F 


JMP 

FABCD 

9DA3 




T0KN10 



9DA3 

A2 

03 



LDX 

#3 


/CONVERT FRO TO ASCII IN TOKBUF -> TOKBUF+NUMLEN- 1 (RIGHT JUSTIFIED) 


NON-DECIMAL NUMBER 


TRUNCATE # FOR DISPLAY ONLY 


; TOKBUF = MESSAGE 


9DA5 

9DA5 B5 BO 
9DA7 35 A8 


9DAB CA 
9DAC 10 F7 


FDLP3 

LDA BINARY, X 

AND BITBN2, X 

STA BINARY, X 

DEX 

BPL FDLP3 


LIMIT TO # OF BITS SET BY "BITS" COMMAND 


9DAE 

9DB0 

A9 00 
20 27 A8 


LDA 

.JSR 

#0 

BINFP2 

i TREAT ALL AS POSITIVE 

9DB3 

20 4F 9C 


JSR 

IDA 

CLNUM 

i CLEAR TOKBUF 

9DB8 

85 82 


STA 

TOKPTR 


_ 9DBA_ 


-FDLPeL 




9DBA 

A5 87 


LDA 

DHOFLG 


9DBC 

20 EO A6 


JSR 

INTMOD 

; FRO <- FRO MOD DHOFLG 

9DBF A 5 D5 


LDA 

FRQ+i 

lQ~2^ IDHOFLG-1) IN BCD 

9DC I 

18 


CLC 



9DC2 

69 30 


ADC 

#'0 

; CONVERT TO ASCII 




CMP 

#'0+*10 

; 10 TO 15? 

9DC6 

90 02 


BCC 

FDS1 

; NO. 

9DC8 

69 00 


ADC 

#'A-'0-$10-l 

;YES. CONVERT TO ASCII A TO F 

9DCA 


FDS1 




9DCA 

AO 00 


LDY 

#0 


9DCC 

C6 82 


DEC 

TOKPTR 



91 82 


STA 

< TOKPTR), Y 


9DD0 

20 12 9F 


JSR 

FLDOM 

i LOAD MQDFAC=INT (FRO/DHGFLG) 

9DD3 

A5 D4 


1.DA 

FRO 


9DD5 

DO E3 


BNE 

FDLP2 



9DD7 4CQB 9F 


JMP 


FAB CD 


COLLEEN CALCULATOR. BV C SHAW 


9 DO A 

9DDA 05 BF 
9D0C 20 4F 9C 


9 DDF A2 50 
9DE1 A5 05 
9DE3 85 C3 
9DE5 A5 D 4 
90E7 85 C2 
90E9 FO 6A 
9DEB 29 7F 
9DED 85 04 
9DEF C9 3F 
9DF1 90 14 
9DF3 C9 44 
9DF5 BO 10 
90F7 A5 CO 
90F9 C9 08 
9DFB FO 12 
9DFD 4A 
9DFE 90 02 
9E00 A2 05 
9E02 


F0S05 


RF70 


9E1B 
9E1B 6A 
9E1C90Q2 
9E1E A2 05 
9E20 

9E20 49 FF 


RF40 


RF50 


9E22 18 
9E23 65 D4 
9E25 C9 10 


ROR 

BCC 

LDX 

EOR 


9E27 90 3A 
9E29 

9E29 85 EO 

9E2B 86 El 

? £2D A2 03 
9E2F A9 00 
9E31 

9E31 85 E2_ 

9E33 CA 


CLC 

ADC 

CMP 


RF80 


BCC 


STA 


STX 


LDX 


RFLP1 


LDA 

STA 

DEX 


SEFORM 

CLNUM 


• •50 

FRO-#- 1 

SMSD 

FRO 

SSXGN 

RF90 

• *7F 
FRO 

• •3F 
RF 10 

• •44 
RF 10 
FIXNUM 
•8 

RF20 

A 

RF70 

• •05 


9E04 4C 29 9E 
S£QZ 

RF 10 

JMP 

it 

RF80 

9E07 E6 BF 


INC 

SEFORM 

9E09 A5 CO 


LDA 

FIXNUM 

9EQB C9 08 


CMP 

#7+1 

9E0D 90 02 
9E0F 

RF20 

BCC 

RF30 

9EQF A9 07 


LDA 

#7 

9E1 1 

RF30 



9E1 1 A4 D5 


LDY 

FRO+1 

9E13 CO 10 


CPY 

#$10 

9E1 5 90 04 


BCC 

RF40 

9E1 7 E9 01 


SBC 

#1 

9E19 C9 FF 


CMP 

#$FF 


A 

RF50 

#$05 

#$FF 


FRO 

#$F+1 


DEC I HAL MODE A - DHOFLO - 0 

i INIT TO 0 TO INDICATE NOT EFORM 
i CLEAR TOKBUF RETURN A- ' X-»FF V UNCHANGED 

ADD 5X10 K IN PREPARATION FOR ROUNDING 

i SAVE USD OF NUMBER 
; SAVE SIGN 

iO -> NOTHING FANCY NEEDED 
i TAKE ABSVAL 

> E FORM? 
i YES. 

; YES 
i NO 

* FI X 8 (NOFIX)? 

$ YES. 

J DIVIDE BY 2 

4 ODD ? 

; YES. 

i TAKE COMPLEMENT* CHANGE TO EXCESS 40 NOTATION 


YES. SET FLAG 

FORM 5X 10*' v - (FI XNUM+1 ) X lO^Kl 

WHERE K1=P0WER OF 10 IN FRO. 

MAX # OF DIGITS AFTER DP=7 IN E MODE 


IN RANGE 0-9? 

YES. 

NO. 10-99 => ODD POWER OF 10, SXIO^-C (FIXNUM-1 >+i ) X10^(K1-1 ) 
SET CARRY IF NEG. TO BE ROTATED INTO Mfin 

DIVIDE BY 2 TO GET POWER OF 100 

ODD POWER OF 10? 

YES. USE 5, NOT $50 

i T AKE CO MPL E ME NT^ -iA-1 ) 


; COMBINE WITH EXPONENT 
i TOO SMALL? 


RFERR 


FR1 


FRi + 1 


#3 


i YES. ERROR 


EXPONENT 


; 5 OR $50 


#0 


FRi+2 


i CLEAR REST OF FR1 


7 too 


Ut A 


COLLEEN CALCULATOR, BY C SHAW 


9E34 

10 

FB 

BPL 

RFLP1 

9E36 

20 

66 DA 

JSR 

FADD 

9E39 

BO 

28 

BCS 

RFERR 


9E3B A5 BF 
9E3D DO 08 
9E3F A5 D4 
9E4 1 C9 44 
9E43 90 10 
9E45 E6 BF 
9E47 

9E47 20 51 DA 
9E4A A9 30 
9E4C 8D 75 05 
9E4F 20 20 D9 
9E52 4C 58 9E 
9E55 

9E55 20 E6 D8 
9E58 


9E58 AO FF 
9E5A 
9E5A C8 
9E5B B 1 F3 
9E5D 10 16 
9E5F A6 BF 
9E61 FO 09 
9E63 

9E63 20 88 A9 
9E66 20 86 9F 
9E69 4C 86 9D 

9E6C 

9E6C 29 7F 
9E6E 91 F3 
9E70 84 Cl 
9E72 4C 91 9E 

9E75 

9E75 C9 45 
9E77 DO El 

9E79 A6 BF 
9E7B FO E6 
9E7D 88 
9E7E 84 Cl 
9E80 C8 
9E81 A2 OA 
9E83 9D 00 05 

9E86 E8 

9E87 C8 
9E88 B 1 F3 
9E8A 10 F7 
9E8C 29 7F 
9E8E 9D 00 05 
9E91 


LDA 

BNE 

LDA 

CMP 

BCC 

INC 

RF85 

JSR 

LDA 

STA 

JSR 

JMP 

RF90 

JSR 

RF100 


LDY 

RFLP2 

INY 

LDA 

BPL 

LDX 

BEQ 

RFERR 

JSR 

JSR 

JMP 

RF105 

AND 

SIA 

STY 

JMP 

RF1 10 

CMP 

BNE 

LDX 

BEQ 

DEY 

STY 

INY 

LDX 

RFLP3 STA 

INX 

INY 

LDA 

BPL 

AND 

STA 


SEFORM 

RF85 

FRO 

#$44 

RF90 

SEFORM 

INTLBF 

#'0 

LBUFF-1 1 
XEFORM 
RF 100 

FASC 


#$FF 


( INBUFF) , Y 
RF 1 10 
SEFORM 
RF105 

CRYSND 

FP0P1 

TOKNUM 


#$7F 

(INBUFF). Y 

MANTLN 

RF120 


# 'E 
RFLP2 

SEFORM 

RFERR 

MANTLN 

#NUMLEN-4 
TOKBUF, X 


( INBUFF), Y 

RFLP3 

#$7F 

TOKBUF, X 


RF120 


; FINALLY CAN DO ADD 
i ERROR - OVERFLOW 


i EFORM? 

; YES. 

i NO. 

I EXPONENT TOO LARGE? 

; NO. OK 

; YES. EFORM AFTER ALL MUST HAVE BEEN APPROX 99999999. 9 TO 100000000 

; YES. MAKE INBUFF POINT TO LBUFF 
; STORE ASCII 0 


;FP -> E FORM ASCII 


> FP -> ASCII (NOT EFORM WE HOPE) 


FIND & SAVE E+/-NN 


i .END OF DUFFER 

; ERROR: SHOULD HAVE E 

i "ARITHMETIC OVERFLOW" ERROR - CLEAR FRO 
I POP OFF OLD X VALUE 
i TRY DISPLAY AGAIN 


; CLEAR END OF BUFFER INDICATOR 
; SAVE MANTISSA LENGTH 


i E FOUND? 

; NO. CONTINUE 

i YES. EFORM? 

i NO. ERROR, SHOULD NOT HAVE JE 

; SAVE MANTISSA LENGTH ( ADDR OF LAST CHAR) 




; MOVE E TO TOKBUF 



COLLEEN CALCULATOR. BY C SttAW 


9C91 AO FF 


LDY 

4E4J 

8FLF4 


4*43 CB 


1NV 

4*94 C4 Cl 


CPY 

4E9A F 0 OA 


8EQ 

4*98 90 06 


BCC 

9*9A A9 2* 


LDA 

9E9C 91 F 3 


8TA 

9*9* 84 Cl 


STY 

4* AO DO 06 


BNE 

9EA2 

RF 130 


9EA 2 B 1 F3 


LDA 

9*A4 C4 2* 


CMP 

9EA6 DO EB 


BNE 

4*A8 

RF 140 


9EA8 A6 CO 


LDX 

9EAA EO 08 


CPX 

9EAC DO 20 


BNE 

9EAE A4 Cl 


LDY 

9EB0 CO 09 


CPY 

9EB2 90 3D 


BCC 

9EB4 AO 08 


LDY 

9EB6 A3 C2 


LDA 

9EB8 29 7F 


AND 

9EBA C9 3F 


CMP 

9EBC DO 07 


BNE 

9EBE 

I NY 


9EBE AS C3 


LDA 

9EC0 C9 10 


CMP 

9EC2 BO 01 


BCS 

9EC4 C8 


I NY 

9EC3 

RF 1 42 


9EC3 B 1 F 3 


LDA 

9EC7 C9 30 


CMP 

9EC9 DO 26 


BNE 

9 ECB 88 


DEY 

9ECC 10 F7 


BPL 

9 ECE 

RF148 


9ECE 98 


TYA 

9ECF 18 


CLC 

9ED0 65 CO 


ADC 

9ED2 C5 Cl 


CMP 

9ED4 BO 04 


BCS 

9ED6 85 Cl 


STA 

9ED8 90 OF 


BCC 

9EDA FO OD 

RF 1 50 

BEQ 

9EDC A4 Cl 


LDY 

9 EDE 85 Cl 


STA 

9EE0 A9 30 


LDA 

9EE2 

RFLP5 


9EE2 C8 


I NY 

9EE3 91 F3 


STA 

9EE5 C4 Cl 


CPY 

9EE7 DO F9 


BNE 


# 


9EE9 

9EE9 

A4 

Cl 

RF 160 

LDY 

9EEB 

CO 

09 


CPY 


• %Ff 


MANTLN 

RF130 

RF130 

( INBUFF ) « Y 
MANTLN 
RF 140 

< INBUFF). V 

RFLP4 

FI XNUM 

•8 

RF 1 48 

MANTLN 

#9 

RF 1 70 

#8 

SSIGN 

#47 F 
#*3F 

RF 1 42 

SMSD 

#410 

RF 1 42 


( INBUFF), Y 

# '0 

RF170 

RF142 i JMP 


_i COMPUTE WHERE END OF NUMBER SHOULD BE 

F I XNUM 
MANTLN 

RE15CL 


MANTLN 

MANTISSA TOO LONG => DISCARD DIGITS 

RF160 

JMP 

RF160 

JUST RIGHT 

MANTLN 

MANTISSA TOO SHORT: PAD WITH O'S 

MANTLN 

NEW MANTISSA LENGTH 

# 'Q 



( INBUFFltJY , 

MANTLN ; REACHED DESIRED LENGTH? 

RFLP5 ; NO. CONTINUE 

LIMIT TO 8 DIGITS MAX + DP 


i NOT AT END YET 
I ADD ' 


i JMP 


i HAVE 0 . ' 


i FIXED DEC 
;NOT FIXED DEC 
i O 8 DIGITS IS OK 
; LOAD OLD FRO VALUE 

iNON EFORM FRACTION (E G. . 1. .01)? 
i NO. 

i YES. ALLOW EXTRA DIGIT FOR LEADING '0' 
< LOAD OLD FRO+1 
i 1 OR 2 DIGITS? 

i 2 

i 1 => ALLOW EXTRA CHAR FOR 0 AFTER D. P. 


MANTLN 

#9 


9EE9 

9EE9 A4 Cl 
9EEB CO 09 


RF160 


LDY 

CPY 


COLLEEN CALCULATOR, BY C SHAW 


9EED 
9 EEF 
9EF1 
9EF1 
9EF3 
9EF5 
9EF7 


90 02 
AO 08 

A2 OD 
A5 BF 
FO 02 
A2 09 


RF170 


9EF9 

9EF9 B 1 F3 
9EFB 9D 00 05 
9EFE CA 
9EFF 88 
9F00 10 F7 


FDLP4 


9F02 A5 C2 
9F04 10 05 
9F06 A9 2D 
9F08 9D 00 05 
9F0B 

9F0B A9 OE 
9F0D 85 82 
9F0F 4C 9D 9F 


BCC 

LDY 

LDX 

LDA 

BEQ 

LDX 


LDA 

STA 

DEX 

DEY 

BPL 


LDA 

BPL 

LDA 

STA 

LDA 

STA 

JMP 


FABCD 


LIMIT TO 8 DIGITS MAX ♦ DP 

MANTLN 

#9 


RF170 

#8 

#NUMLEN- 1 
SEFORM 
FDLP4 
#NUMLEN-5 


< INBUFF), Y 
TOKBUF, X 


FDLP4 

CHECK SIGN 

SSICN 

FABCD 

# NEGATIVE => STORE 
TOKBUF, X 


i OK 

i MOVE TO TOKBUF 

; E FORM? 

I NO. 

i YES. ALLOW ROOM FOR EXPONENT 


#NUMLEN 

TOKPTR 

FPOPO 


i POP ORIGINAL # OFF STACK 




COLLEEN CALCULATOR, BY C SHAW 


9F12 

FLDOM 


i FRO <- MODFAC 

4 - 9F12 A2 50 

L D v 

#MODFAC 


9F14 AO 05 

LDY 

#MODF AC/256 


9F 16 DO 35 

BNE 

CFLD02 

i JNP 

9F18 

FLDOS 


i FRO <- TOP OF STACK 

9F18 20 A9 9F 

JSR 

FPOPLD 

j LOAD X&Y REGS WITH STACK POINTER 

9F1B DO 30 

BNE 

CFLD02 

i JMP 

9F1D 

SRECTA i ->POLAR NEW X«R=SQRT ( SOU ( X ) +SQU ( Y ) ) NEW Y=THETA=ASIN < Y/R ) 

9F1D A9 £1 

LDA 

#ZRECT 


9F1F 20 FO 9B 

JSR 

PUTMSG 

j DISPLAY POLAR 1 ' 

9F22 20 5A A8 

JSR 

SSQUAR 

i X*X 

9F25 20 55 9F 

JSR 

FSTOT 


9F28 20 18 9F 

JSR 

FLDOS 


• 9F2B 20 5A A8 

JSR 

SSQUAR 

i Y*Y 

9F2E 20 4F 9 F 

JSR 

FLD1T 


9F31 20 6A A9 

JSR 

SFADD 


9F34 20 A7 B1 

JSR 

SSQRT 

i R = NEW X (TOS) 

9F37 20 B6 DD 

^JSR 

FMOVE 


9F3A 20 55 9F 

JSR 

FSTOT 


9F3D 20 9D 9F 

JSR 

FPOPO 

i Y 

9F40 20 3A A9 

JSR 

SFDIV 

i Y/R — 

9F43 20 05 B1 

JSR 

SASIN 

i THETA = NEW Y 

9F46 20 BB 9F 

JSR 

FPUSHO 


9F49 

FLDOT 


i FRO O FTEMP 

9F49 A2 56 

LDX 

#FTEMP 


9F4B AO 05 

LDY 

#FTEMP/256 


9F4D 

CFUD02 



9F4D DO 51 

BNE 

CFLDOR 

i JMP 

9F4F 

ELD IT 


; FR1 <> FTEMP 

9F4F A2 56 

LDX 

#FTEMP 


9F51 AO 05 

LDY 

#FTEMP/256 


9F53 DO 34 

BNE 

CFLD1R 

; JMP 

9F55 

FSTOT 


; FTEMP FRO 

9F55 A2 56 

LDX 

#FTEMP 


9F57 AO 05 

LDY 

#FTEMP/256 


9F59 4C A7 DD 

JMP 

FSTOR 


9F5C 

FST1T 


i FTEMP O FR 1 

9F5C A2 56 

LDX 

#FTEMP 


9F5E AO 05 

LDY 

#FTEMP/256 


9F60 

FST1R 


; (X, Y) <- FR 1 

9F60 86 FC 

STX 

FLPTR 


9F62 84 FD 

STY 

FLPTR+1 


9F64 AO 05 

LDY 

#5 


9F66 

FSLOP 



9F66 B9 EO 00 

LDA 

FR1, Y 


9F69 91 FC 

STA 

(FLPTR), Y 


9F6B 88 

DEY 



9F6C 10 F8 

BPL 

FSLOP 


9F6E 

PUTBRT 



9F6E 60 

RTS 




9F6F PUTBLK 


9F6F 

A6 

95 

LDX 

PRNFLG 

; PUT A BLANKS ON PRINTER ONLY 

9F7 1 

FO 

FB 

BEQ 

PUTBRT 


9F73 

A2 

20 

LDX 

#P IQCB 


9F75 

9D 

48 03 

STA 

ICBLL, X 



COLLEEN CALCULATOR , BY C SHAW 


•** Formi, Inc. J* I412T til 2 


r r / / u to WO 


a I Pi 


lLULLi X 



COLLEEN CALCULATOR, 


BY C SHAW 


9F78 A9 28 
9F7A AO 05 
9F7C 4C 7C A2 


LDA #BLKBUF 

LDY #BLKBUF/256 

JMP PTCHS2 


9F7F 


SRCL 



9F7F 20 DO 

A3 


JSR 

MEMSUB 

9F82 A5 94 



LDA 

RPNALG 

9F84 FO E8 



BEQ 

PUTBRT 

9F86 


FP0P1 



9F86 20 A3 

9F 


JSR 

FPOP 

9F89 4C 98 

DD 

CFLD1R 

JMP 

FLD1R 

9FBC 


ARC SUB 



9F8C 20 BB 

9F 


JSR 

FPUSHO 

9F8F 20 5A 

A8 


JSR 

SSQUAR 

9F92 A9 01 



LDA 

#1 

9F94 20 75 

A9 


JSR 

INTSUB 

9F97 20 A7 

B 1 


JSR 

SSQRT 

9F9A 


FMVPOP 



9F9A 20 B6 

DD 


JSR 

FMOVE 

9F9D 


FPOPO 

_ A 



9F9D 20 A3 

9F 


JSR 

FPOP 

9FA0 4C 89 

DD 

CFLDOR 

JMP 

FLDOR 

9FA3_ 


FPOP 



9FA3 20 A9 

9F 


JSR 

FPOPLD 

9FA6 86 9B 



STX 

FPPTR 

9FA8 60 



RTS 


9FA9 


FPOPLD 



9FA9 A5 9B 



LDA 

FPPTR 

9FAB 38 



SEC 


9FAC E9 06 



SBC 

#FPREC 

9FAE BO 07 



BCS 

FPOP 10 

9FB0 A9 63 



LDA 

ttNSEMSG 

9FB2 20 B7 9B 


JSR 

ERRSUB 

9FB5 A5 9B 



LDA 

FPPTR 

9FB7 


FPOP 10 



9FB7 AA 



TAX 


9FB8 AO 06 



LDY 

#FPSTK/256 

9FBA 60 



RTS 



9FBB _ 

9FBB 20 F3 9F 
9FBE 20 A7 DD 
9FC1 

9FC 1 A5 9B 
9FC3 18 
9FC4 69 06 
9FC6 85 9B 
9FC8 60 


FPUSHO 

JSR 

JSR 

FPSH05 

LDA 

CLC 

ADC. 

STA 

RTS 


FPSHLD 

FSTOR 

FPPTR 


#FPREC 

FPPTR 


9FC9 
9FC9 48 
9FCA 20 B2 A3 
9FCD 20 5A A8 


ZVAR2 


PHA 

JSR 

JSR 


MEMLDO 

SSQUAR 


; X O MEM 


» FR 1 <- P0P( ) 

;FR1 O SORT ( 1-FR0#FR0 ) FOR ARCCOS, ARCSIN 


i DO FMOVE THEN FPOPO 

F RQ O PnP(FPfiTK) 

i LOAD REGISTERS AND 
i MODIFY STACK POINTER. 

i LOAD X & Y REGISTERS IN PREPARATION FOR POP(FPSTK) 


i STACK UNDERFLOW 


i PUSH FRO ON FPSTK 






; COMPUTE SIGMA<S<3U< A) ) -SQU < SIGMA < A ) >/N 
; SAVE REG # 
i SIGMA 
i SQU (SIGMA ) 


COLLEEN CALCULATOR# BY C SHAW 



9FD0 A9 04 
9FD2 20 B8 A3 
9FD5 20 EB 9F 
9FD8 20 3A A9 

9FDB 20 B6 DO _ 

9FDE 68 
9FDF 18 

9FED 69 Q1 

9FE2 20 B2 A3 
9FE5 20 83 A9 

9FFR SXCHGY 

9FE8 20 9A 9F 
9 FEB FPUSH1 

9FEB 20 F3 9F 

9FEE 20 60 9F 
9FF1 30 CE 

9FF3 FPSHLD 

9FF3 A6 9B 
9FF5 EO FC 

9FF7 9Q -Q5-- 

9FF9 A9 74 
9FFB 20 B7 9B 

9 FFE A 2 F6 

AOOO 86 9B 

A002 FPC10 

A002 AO 06 

A004 60 


LDA 

JSR 

JSR 

JSR 

JSR 

PLA 

CLC 

ADC 

JSR 

JSR 

JSR 

JSR 

JSR 

BMI 

LDX 

CPX 

JBCC 

LDA 

JSR 

LDX 

STX 

LDY 

RTS 


#4 

MEMLD1 

FPUSH1 

SFDIV 

FMOVE 


#1 

MEMLDO 

SFSUB 


FMVPOP 

FPSHLD ; PUSH FR1 ON FPSTK 

FST1R 

FPSH05 # JMP 

FPPTR iLOAD REGISTERS & CHECK FOR OVERFLOW 

#FPSLEN*FPREC 

-EBC-IO 

#NSFMSG 

ERRSUB i STACK OVERFLOW 

JtFPSLEN-i*FPREC 

FPPTR 

#FPSTK/256 ------ 


i N 


i SAVE N FOR LATER 


i RELOAD REG # 
i AND INCREMENT 
i SIGMA (SOU) 


i X<==>Y FRO<==>TOS 








COLLEEN CALCULATOR# BY C SHAW 


COLLEEN CALCULATOR. BY C SHAW 


A005 

A005 
A007 
A009 
AOOC 
AOOC 
AOOD 
AOOE 
AO 10 
AO 12 
A01 4 
AOl 6 
AO 18 
AOl A 
AOl A 
AO 1C 
A01E 
AO IF 


C9 8D 
90 03 
4C B5 9B 

OA 

A8 

A9 13 
85 90 
A9 BB 
85 91 
90 02 
E6 91 


B 1 90 
85 92 
C8 

B1 90 


SUBCAL 


CMP 

BCC 

JMP 


SBCL5 


MAIN10 


#EQUAL+1 

SBCL5 

KEYERR 


#JMPTBL 
JMPTR1 
#JMP‘ 
JMPTR1+1 
MAIN10 
JMPTR1+1 


( JMPTR1 ) 
JMPTR2 


; PERFORM OP A (ROUTINE CALLED WILL DO RTS) 


A023 6C 92 00 


( JMPTR1 ), Y 
JMPTR2+1 


j SECOND PAGE OF TABLE 
; LOAD AND STORE JSR ADDRESS 


JMP 


( JMPTR2 ) 


A026 A6 86 
A028 FO 07 

9 

LDX 

BEQ 

TOKTIN 

GETC05 

RETURN NEXT INPUT CHAR IN A REG 

A02A C6 86 

DEC 

LDA 

TOKTIN 
TOKTMP-1, X 

J USE CHARS FROM PREVIOUS CALL 

A02E 4C 81 AO 
A031 

JMP 

■ GETC05 

GETC10 

; SAVE CHAR IN TOKBUF 

A031 A2 10 

LDX 

#K IQCB 


A033 A 9 07 

LDA 

#GETCHR 

; GET FROM K- < DATA RPTtiPKiFn tki 

A035 9D 42 03 

STA 

ICCOM; X 


A038 A5 82 

LDA 

TOKPTR 


A03A 9D 44 03 

STA 

ICBALi X 


A03D A5 83 

LDA 

TOKPTR+1 


A03F 9D 45 03 

STA 

ICBAH, X 


A042 A9 01 

LDA 

#1 


A044 9D 4e 03 

STA 

ICBLLi X 


A047 A9 00 

LDA 

#0 


A049 9D 49 03 

STA 

ICBLH, X 


A04C 20 56 E4 

JSR 

CIOV 


A04F CO 01 

CPY 

#SUCCES 


A051 DO 36 

BNE 

GETC12 

i BREAK => DELETE LINE 

A053 C9 9E 

CMP 

#$9B 


A055 90 14 

BCC 

GETC06 

0 

1 

> 

A057 DO 04 

ENE 

GNOCR 


A059 A9 20 

LDA 

#' 

j 9B 

A05B DO 3C 

BNE 

GETC30 

> CR => CHANGE TO BLANK AND DON'T 

A05D 

GNOCR 



A05D C9 FD 

CMP 

#$FD 

i FD=BELL 

A05F BO 2C 

BCS 

GETC15 

; FD-FF 

A061 C9 AO 

CMP 

#$A0 



COLLEEN CALCULATOR, BY C SHAW 


A063 BO 06 
A065 C9 9C 


BCS 

CMP 

GETC06 

ttDELLIN 

A067 FO 2B 


BEQ 

GETC20 

A069 DO 22 
A06B 

GETC06 

BNE 

GETC15 

A06B 29 7F 


AND 

#*7F 

A06D FO IE 


BEQ 

GETC15 

A06F C9 IB 


CMP 

#$1B 

A07 1 BO 04 


BCS 

GETC07 

A073 69 40 


ADC 

#2*32 

A075 DO OA 


BNE 

GETC10 

A077 

A077 C9 61 

GETC07 

CMP 

# ' A+32 

A079 90 06 


BCC 

GETC10 

A07B C9 7B 


CMP 

tt'Z+32+1 

A07D BO 02 


BCS 

GETC10 


A07F E9 IF SBC #32-1 


A081 

GETC10 


A081 C9 20 

CMP 

# ' 

A083 FO 14 

BEQ 

GETC30 

A085 C9 7E 

CMP 

#BACKSP 

A087 DO 04 

BNE 

GETC15 

A089 

GETC12 


A089 A9 9C 

LDA 

#DELLIN 

A08B DO 07 

BNE 

GETC20 

A08D 

GETC15 


A08D 48 

PHA 


A08E A9 IB 

LDA 

#ESC 

A090 20 31 A2 

JSR 

PTCHR 

A 093 68 

PLA 


A094 

GETC20 


A094 48 

PHA 


A095 20 31 A2 

JSR 

PTCHR 

A098 68 

PLA 


A099 

0ETC30 


A099 EA 

NOP 


AQ9A EA 

NOP 


A09B EA 

NOP 


A09C EA 

NOP 


A09D EA 

NOP 


A09E EA 

NOP 


A09F EA 

NOP 


AOAO AO 00 

LDY 

#0 

A0A2 91 82 

STA 

( TOKPTR ) , 

A0A4 60 

RTS 



9C-9F 

DON'T ESCAPE IF DELETE LINE (90 
9D-9F 

0-9A OR AO-FD 

STRIP OFF INVERSE VIDEO, IF ANY 
O 


; 1 1A (CONVERT CTRL GRAPHICS TO UPPER CASE LETTER) 
i JMP 

i LOWER CASE ALPHA TO UPPER CASE 


; CARRY SET 


i DON'T PRINT SPACE 


i JMP BACKSPACE IS EQUIV TO DELETE LINE 


i PUT ON SCREEN 


; TEMP SO NO CARTRIDGE B 



COLLEEN CALCULATOR. BY C SHAW 


A0A5 


GETDHO 




I 



GET DEC, HEX, OR OCT DIGIT AND RETURN 



# 



RETURN CC=>NO ERROR, CS=> ERROR 

AO A 5 20 26 

AO 


JSR 

GTCHR 


A0A8 C9 9C 



CMP 

#DELLIN 


AOAA DO 05 



BNE 

DHOCHK 


AOAC 68 



PLA 


i IF DELETE LINE THEN POP STACK (SKIP 

AOAD 68 



PLA 



AOAE 4C 51 

9A 


JMP 

LEX 


A0B1 


DHOCHK 



i ENTRY POINT IF ALREADY HAVE CHAR 



.J 



RETURN CC=>NO ERROR, CS=> ERROR 

A0B1 C9 30 



CMP 

#'0 


A0B3 90 OA 



BCC 

DHOERR 

i ERROR 

A0B5 A6 87 



LDX 

DHOFLG 


A0B7 EO 08 



CPX 

#8 


A0B9 DO 06 



BNE 

DH010 


AOBB C9 38 



CMP 

# '7+1 

i OCTAL 

AOBD 90 12 



BCC 

DHOOK 

; OK OCT 0-7 

AOBF 


DHOERR 




AOBF 38 



SEC 



AOCO 60 



RTS 


i ERROR CARRY SET 

AOC 1 


DH010 




AOC 1 C9 3A 



CMP 

#'9+1 


AOC 3 90 OC 



BCC 

DHOOK 

; DK DFC flR HFX 0—9 

AOC 5 EO 10 



CPX 

#16 


A0C7 DO F6 



BNE 

DHOERR 

; ERROR DEC >9 

A0C9 C9 41 



CMP 

#'A 


AOCB 90 F2 



BCC 

DHOERR 


AOCD C9 47 



CMP 

#'F+1 


AOCF BO EE 



BCS 

DHOERR 


A0D1 


DHOOK 




A0D1 E6 82 



INC 

TOKPTR 

; SAVE CHAR 

A0D3 60 



RTS 




COLLEEN CALCULATOR 


A0D4 


GETINT 


# GET INTEGER FROM 0-255 FROM KEYBOARD 


AOD4 20 BB 9F 


A0D7 AS 87 
A0D9 48 

AODA A9 00 
AO DC 85 87 
AODE 20 51 9A 
A0E1 AS 81 
A0E3 C9 8E 
AOES F 0 oa 


JSR 

FPUSHO 

LDA 

PHA 

DHOFLC 

LDA 

•0 

STA 

DHOFLG 

JSR 

LEX 

LDA 

TOKCOD 

CMP 

KNUMBER 

BEQ 

GI05 


USEFUL FOR MEM REG «. FIX. BITS 
RETURN CC«> OK. CS •> NOT OK 
.SAVE FRO 


i SAVE DHOFLC 
i FORCE DECIMAL MODE 


AOE7 68 
A0E8 85 87 
AOEA 20 9D 9F 


DHOFLG 

FPOPO 


i RELOAD FRO 


AOED 38 
AOEE 60 


AOEF 
AOEF 68 
AOFO 85 87 


GI05 


DHOFLG 


; RESTORE 


A0F2 


GINT2 


ENTRY PT. IF ALREADY HAVE FRO (MUST HAVE FRO ON STACK) 


i>? 


JSR 


A0F5 BO 05 
A0F7 A5 D5 
A0F9 FO 01 


AOFB 38 

AOFC 

A0FC_08_ 


BCS 

LDA 

BEQ 

SEC 


FPI 

GI20 

FRO+l 

GI20 


; ERROR 


GI20 


PHP 


AOFD A5 D4 
AOFF 48 
A1QQ2Q9D ?F 
A 103 68 
A104 28 
A 105 60 


; RELOAD FRO 

; OLD FRO = INTEGER 0-255 
; CC OR CS 


— 


— 


— 





— 


— 












— 












COLLEEN CALCULATOR. BY C SHAW 


COLLEEN CALCULATOR, BY C SHAW 


A106 GETPRI 


; INPUT: A=T0KEN CODE. OUTPUT: A=PRIORITY 


A 106 4A 
A 107 AA 
A 108 BD 64 BF 
A10B BO 04 
A10D 4A 

A10E 4A 

A10F 4A 
A110 4A 

Alia 

Alll 29 OF 
A1 13 A6 94 

A1 17 DO OA 


LSR A 

TAX 

LDA PR I OTB, X 

BCS GPR10 

LSR A 

LSR A 

LSR A 

LSR A 

GPR10 

AND #*F 

LDX RPNALG 

CPX #ALGNQP 

BNE GPR20 


A 1 1 9 C9 OD 
A11B BO 06 
A11D C9 06 
A11F 90 02 
A121 A9 05 
Ai23 

A123 60 


CMP #PHIGH 

BCS GPR20 

CMP #P0R+1 

BCC GPR20 

LDA #P0R 


GPR20 


RTS 


COLLEEN CALCULATOR. BY C SHAW 


A124 


LDCHR 


A 124 20 4C 

A1 


JSR 

LDNIB 

A127 DO IE 



BNE 

LDCH10 

A 129 20 4C 

A 1 


JSR 

LDNIB 

A 1 2C C6 8A 



DEC 

KEYLN2 

A12E C9 OF 



CMP 

#15 

A 130 DO 13 



BNE 

LDCH05 

A 132 20 4C 

A 1 


JSR 

LDNIB 

A 135 OA 



asl 

A 

A136 OA 



ASL 

A 

A 137 OA 



ASL 

A 

A 138 OA 



ASL 

A 

A 139 85 C4 



STA 

LDCSAV 

A13B 20 4C 

A1 


JSR 

LDNIB 

A13E 05 C4 



□RA 

LDCSAV 

A140 C6 8A 



DEC 

KEYLN2 

A142 C6 8A 



DEC 

KEYLN2 

A144 60 



RTS 


A145 


LDCH05 





i 

CLC 


A145 69 10 



ADC 

#16 

A147 


LDCH10 



A147 AA 



TAX 


A148 BD 26 J 

3 C 


LDA 

TABLE-1, X 

A14B 60 



RTS 



RETURN A*PACKED CHAR 


i 1 EXTRA BYTE 
i SPECIAL 4-NIBBLE CHAR? 
i NO. 2 NIBBLE CHAR 
i YES. LOAD 2 NIBBLES OF ASCII 


i COMBINE 2 NIBBLES 
i 2 MORE EXTRA BYTES 

l RETURN 

; 2 NIBBLE CHAR 


A14C 


A14C A5 80 
A14E 49 01 
A150 85 80 
A152 FO 08 
A154 C8 
A155 B 1 8C 
A 15 ? M 


A158 4A 
A159 4A 
A15A 4A 


A15B 60 
A15C 

A15C B1 8C 


LDNIB 


LDA 

EOR 

STA 

BEQ 


I NY 
LDA 
LSR 


LSR 

LSR 

LSR 


LDN20 


RTS 


LDA 


LOAD PACKED NIBBLE FROM PKPTR+Y. LFRT 


LFRT 

#1 

LFRT 

LDN20 


; LEFT NIBBLE 


( PKPTR ) > Y 

A 


(PKPTR Li Y 


i RIGHT NIBBLE 


A15E 29 
A 160 60 


OF 


AND 

RTS 


#*F 


— 







# COLLEEN CALCULATOR, BY C SHAW 


UtJOj 1t»u 


COLLEEN CALCULATOR. BY C SHAW 


A161 


NCHKLD 


i IF TOKEN IS NUMBER THEN LOAD NUMBER INTO FRO FROM PRGMEM 
RETURN EQ => NUMBER. NE => NOT #, CS O ERROR 


A161 

A163 

Aim 

AO 
B 1 

PS 

00 

B9 

P 1 

LDY 

LDA 

STA 

#0 

(PC), Y 

TOKCOD 



rt X o w 

A167 

OJ 

C9 

O 1 

8E 

CMP 

♦♦NUMBER 



A 169 

A1 ID 

DO 

AA 

18 

A7 

BNE 

LDY 

NCK30 

#FPREC+1 



A 1 OD 

A16D 

MU 

B 1 

U/ — 

B9 

LDA 

(PC), Y 



A16F 

C9 

cn 

8E 

CMP 

BEQ 

♦♦NUMBER 

NCK10 

i NUMBER AT OTHER 
i YES 

END? 

AX/l 

A173 

r U 

4C 

u J 

7E A3 

JMP 

UKERR 

i CR ON DISPLAY & 

PRINTER, KEYERR 


A176 


NCK10 


A179 20 85 A1 
A17C BO 06 
A17E 20 89 DD 


JSR 

JSR 

BCS 

JSR 


A181 A9 00 
A 183 


NCK30 


LDA 


CLC 


A 184 
A184 60 

A 1 85 


NCK40 

PCNCHK 


RTS 


LDX 


A187 A4 BA 
A189 C4 D2 

A18D EO F9 
A18F 90 03 
A191 — 


CPX 

BCC 


A191 4C 60 9C 
A 194 


JMP 


PCN10 


A195 DO 01 
A197 CB 
A 198 
A 198 60 


PCN20 


INX 
BNE 
I NY 

RTS 


FSTOT 

PCNCHK 

NCK40 

FLDOR 

#0 


PC 


PC + 1 

PC1MAX 

PCN10 


#-FPREC- 

PCN10 


EPERR 


PCN20 


• 

A 199 
A 199 
A19B 

A9 

DO 

01 

02 

PCINC 

LDA 

BNE 

#1 

PCADD 


A19D 



PCADDN 



• 

A19D 

A19F 

A9 

08 

PCADD 

LDA 

#FPREC+2 


A19F 

18 



CLC 


# 

A1A0 

65 

B9 


ADC 

PC 


A1A2 

90 

09 


BCC 

PCADD1 


A1A4 

A6 

BA 


LDX 

PC+1 

# 

A1A6 

E8 



INX 



A1A7 

E4 

D3 


CPX 

PC1MX1 


A1A9 

BO 

E6 


BCS 

PCN05 

• 

A1AB 

86 

BA 


STX 

PC + 1 


A1AD 



PCADD1 




Al AD 

85 

B9 


STA 

PC 

• 

A1AF 

60 



RTS 



i SEE IF ROOM LEFT IN PRGMEM FOR # 


; EQ 


i CHECK PC TO SEE IF ROOM IN PRGMEM FOR # 
RETURN CC => OK. CS=> NOT OK 


; PC <- PC+1 


i PC <- PC+FPREC+2 


j INC MSB 

END OF MEM? 

YES. DON'T CHANGE PC 
NO. STORE NEW PC 

; STORE LSB 

i RETURN CARRY CLEAR => NO ERROR 




v COLLEEN CALCULATOR. BY C SHAW 


A 1 80 PCLRO i CLEAR FRO 

RETURN WITH CARRY CLEAR (CC> 

A1BO A9 00 LDA «0 

A1B2 FO Q5 BEQ PSETO « JMP 


A1B4 LDINT 

I 

A1B4 48 
A1B3 20 B6 DD 
A1B8 68 


j SET FRO TO INTEGER PASSED IN A 

RETURN WITH CARRY CLEAR (CC) 


i INTEGER A TO FP A 


A1C4 POPOP > POP A OFF OPSTK 

A1C4 A4 9C LDY OPPTR 

A1C6 DO 09 BNE PQP-10 

A1C8 A9 7F LDA #OSEMSG 

A1CA 20 B7 9B J SR ERRSUB ; STACK UNDERFLOW 

A1CD A4 9C LDY OPPTR 

A1CF BO 03 BCS P0P20 ; JMP 

A1D1 P0P10 

A1D1 88 BEY 

A1D2 84 9C STY OPPTR 

A1D4 POP 20 

A1D4 B1 CC LDA < OPS ADR ) * Y __ 

A1D6 60 RTS 

-MBJ- PUSHSP i PUSH A ON OPSTK 

A1D7 A4 9C LDY OPPTR 

A1D9 91 CC STA ( OPSADR ) > Y 

A1DB C8 INY 

A 1DC DO 07 BNE PSH10 

AIDE A9 88__ . LDA #QSFMSG 

A1E0 20 B7 9B JSR ERRSUB i STACK OVERFLOW 

A1E3 BO 02 BCS DSPRT2 ; JMP TO RTS 

A1E5 PSH10 

A1E5 84 9C STY OPPTR 

A1E7 60 DSPRT2 RTS 


A1B9 


PSETO 


A1B9 

A1BB 

A1BD 

A1BF 

A1C2 

A1C3 


85 

A9 

85 

20 

18 

60 


D4 

00 

D5 

AA 


D9 


STA 

LDA 

STA 

JSR 

CLC 

RTS 


FRO 

#0 

FRO+1 

IFP 


i MOVE FRO TO FR 1 . THEN SET FRO TO A 
RETURN WITH CARRY CLEAR (CC) 

PHA 

JSR FMOVE • FR 1 <~ FR0 

PLA 




COLLEEN CALCULATOR , BY C SHAW 


COLLEEN CALCULATOR; BY C SHAW 


A1E8 

AiES 20 92 A7 
A1EB 20 CC A5 
A1EE 

A1EE AS BO 
A1F0 DO F5 
A1F2 20 57 9D 


DSOME 


FDSCOM 


i-DAYCOM 


i SUBROUTINE TO DISPLAY STACK. MEM. & X 


A1F5 C6 A2 
A1F7 A9 15 


A1FB 

A1FD 

AiEE 

A201 

A203 

A2Q5 


A9 16 
85 54 
A2 04 
A9 FO 
AO BA 


A205 
A208 
A208 
A20B 
A20B 
A2QD 
A20F 
A21 1 


20 AB A2 

_2Q 9D A2- 

A9 9B 
A6 54 


PTTXTP 


PTCRPD 


EO 17 
DO IE 


A213 
A21 5 
A217 


A9 10 
A6 BB 
EQ QX. 


A21 9 
A21B 
A21 JL 


DO 02 
A9 02 


A21D 

A21F 

A222 


85 54 
20 2B A2 
A9 12 


A224 

A226 


85 54 
60 


A227 


A227 A9 17 


A229 85 54 
A22B 

A22B A9 Ql_ 


A22D 85 55 
A22F A9 9C 
A231 


A231 

_A233 

A233 

A234 

A236 

A238 

A23A 

A23D 

A23F 

A242 

A245 


A2 00 
AS 

A5 BD 
DO 4B 
A9 OB 
9D 42 


03 


A9 00 

9D 48 03 
9D 49 03 
98 


PUTCR 


JSR 

JSR 

LDA 

BNE 

JSR 

DEC 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

LDY 

JSR 

JSR 

LDA 

LDX 


CPX 

BNE 


LDA 
LDX 
Jd EX 


BNE 

LDA 


_Pin£R2_ 


STA 

JSR 

JLBA. 

STA 

RTS 


PUTDEL 


LDA 

STA 


ptdel; 


LDA^ 

STA 

LDA 


PTCHR 


PTCHRi 


DSPSTK 

DMEMAL 

DSPFLG 

DSPRT2 

FDSPO 


NUMFLG 

#C0LCMD-1 

COLORS 

#ROWCMD 

ROWCRS 

#4 . 

#STARMS 

#STARMS/256 


; RETURN IF NO DISPLAY 
i DISPLAY FRO FOLLOWED BY "***" 
; ENTRY PT 

i<- 0 


PTCHSP 

PUTCRP 

#CR 

ROWCRS 

#23 

PTCHR 


#ROWSCR 

PROG 

#STOPRG 


PUTCR2 

#2 


ROWCRS 
PTDEL2 
Jfc 23 


ROWCRS 


#23 


ROWCRS 


COLORS 

#DELLIN 


LDX 

TAY 

LDA 

BNE 

LDA 

STA 

LDA_ 

STA 

STA 

TYA 


#SIOCB 


DSPFLG 
PTABC 
#PUTCHR 
ICCOM. X 
#0 


ICBLL. X 
ICBLH. X 


i # OFCHARS 

i PUT TEXT ON SCREEN AND PRINTER (IF OPEN) 
; PUT CR ON PRINTER & DISPLAY 


; IF NOT ON BOTTOM LINE THEN DO NORMAL CR 
j OTHERWISE. DO SCROLLING & RETURN TO BOTTOM LINE 


i SCROLL 22 LINES IF STORE PROGRAM MODE 


i DELETE BOTTOM LINE ON SCREEN 
RETURN COLORS = LMARG = 1 


i DELETE CURRENT LINE 


PUT ONE CHAR (IN A) ON SCREEN 


COLLEEN CALCULATOR. BV C SHAW 


A246 4C 36 E4 


JMP 


CIOV 


A249 
A249 06 
A24B BD 
A24E 20 
A251 20 
A254 A6 
A256 BO 
A259 20 
A25C A2 
A25E 20 
A261 A6 
A263 BO 
A266 DO C9 

A268 

A268 A2 10 
A26A 

A26A A9 3C 
A26C DO 04 


PTLIN1 


LDA 

BNE 


A26E 


BLNK15 


OF 


A270 

A270 A9 28 

A272 


BLNKS 

PUTCIL 


A272 AO 05 

4274 

A2ZA48 


LDY 


PUTC H S - 


PHA 


i PUT UP ONE LINE OF SCREEN DISPLAY (FOR INIT) 


TO 

CHRTAB. X 
PTCHR 
CTLR16 
TO 

CHRTAB + 1. X 

PTCHR 

#19 

CTLR 

TO 

CHRTAB+2, X 
PTCHR 


#16 


i JMP 

; PUT 16 CTRL R 'S ON SCREEN (HORIZ. LINES) 
i PUT X CTRL R 'S ON SCREEN 


#CTLRS 

PUTCTL i JMP 


i PUT 15 BLANKS ON SCREEN 


#15 

#BLKBUF 


; PUT X BLANKS ON SCREEN 


#BLKBUF/256 


A=ICBAL. Y=ICBAH, X=# OF CHARS 


A275 8A 
A276 A2 00 


TXA 

LDX 


#SIOCB 


A27B 

A27C 

A27C 

68 

9D 

44 03. 

PTCHS2 

PLA 

STA 

ICBAL._X 

A27F 

A5 

BD 


LDA 

DSPFLG 

A281 

FO 

03 


BEQ 

PTABD 

A283 

AO 

OL 

PTABC 

LDY 

ttSUCCES 

A285 

A286 

A286 

60 

98 


RETN2 

PTABD 

RTS 

TYA 



; DON'T PRINT => ALWAYS SUCCESSFUL 


A287 9D 45 03 
A28A A9 00 
A28C 9D 49 Q3 


STA 

LDA 

STA 


ICBAH. X 
#0 

ICBLHi X 


A28F A9 OB 
A291 9D 42 03 


LDA 

STA 


#PUTCHR 
ICCOM, X 


A294 4C 56 E4 

A297 

A297 A5 A2 
A299 FO EA 
A29B C6 A2 


PT CRPN 


JMP 


LDA 

BEQ 

DEC 


CIOV 


NUMFLG 

RETN2 

NUMFLG 


i IF PREVIOUS TOKEN WAS NUMBER THEN PUT CR 


i Q. 


A29D 


PUTCRP 


; PUT CR ON PRINTER IF PRINTER IS ON 


COLLEEN CALCULATOR, BY C SHAW 


A299 FO EA 
A29B C6 A2 


BEQ 

DEC 


RETN2 

NUMFLG 


i o 


A29D 


PUTCRP 


i PUT CR ON PRINTER IF PRINTER IS ON 


COLLEEN CALCULATOR, BY C SHAW 


A29D A6 95 



LDX 

PRNFLG 


A29F FO E4 



BEQ 

RETN2 


A2A1 A9 9B 



LDA 

#CR 


A2A3 A2 20 



LDX 

#P I OCB 


A2A 5 20 33 

A2 


JSR 

PTCHR2 


A2A8 4C CC 

A2 


JMP 

PRNCHK 

i CHECK TO SEE IF PRINTER STILL THERE 

A2AB 


PTCHSP 



4 PUT CHARS ON SCREEN AND PRINTER (IF OPEN) 



# 



A=ICBAL, Y=ICBAH, X=# OF CHARS 

A2AB 8D 62 

05 


STA 

ASAVE 


A2AE 8E 63 

.05 


STX 

XSAVE 


A2B 1 8C 64 

05 


STY 

YSAVE 


A2B4 20 74 

A2 


JSR 

PUTCHS 


A2B7 A6 95 



LDX 

PRNFLG 


A2B9 FO CA 



BEQ 

RETN2 


A2BB A2 20 



LDX 

#P I OCB 


A2BD AD 63 

05 


LDA 

XSAVE 


A2C0 9D 48 

03 


STA 

ICBLL, X 


A2C3 AD 62 

05 


LDA 

ASAVE 


A2 C6 AC— 64 

05. 


LDY 

YSAVE 


A2C9 20 7C 
A2CC 

A2 

PRNCHK 

JSR 

PTCHS2 


A2CC CO 01 



CPY 

#SUCCES 

lsuccessful printing:? 

A2CE FO B5 



BEQ 

RETN2 

} YES. 

A2D0 CO 80 



CPY 

#$80 

; BREAK KEY ABORT? 

A2D2 FQ B 1 



BEQ 

RETN2 

i YES. OK - WILL BE HANDLED LATER 

A2D4 4C 44 

A7 


JMP 

OFFERR 

;N0. CLOSE PRINTER ^DISPLAY ERROR MSG 

A2D7 


SAVCHR 






i 



MOVE CHAR FROM TOKBUF TO TOKTMP 

A2D7 AO 00 



LDY 

#0 


A2D9 B 1 82 



LDA 

(TOKPTR), Y 


A2DR A6 86 



LDX 

TOKTIN 


A2DD 95 84 



STA 

TOKTMP, X 


A2DF E6 86 
A2E1 60 



INC 

RTS 

TOKTIN 


COLLEEN CALCULATOR. BY C SHAW 


A2E2 

A2E2 

A2E4 

A2E6 

A2E8 

A2EA 

A2EC 

A2EE 

A2F0 

A 2F2 


UNPINT 


A? OA 
85 8C 
A9 BE 
85 8D 
A9 00 
85 80 
85 8E 
85 8F 
60 


LDA 

#KEYWRD-1 

STA 

PKPTR 

LDA 

#KEYWRD/256 

STA 

PKPTR+1 

LDA 

#0 

STA 

LFRT 

STA 

KYLFRT 

STA 

KEYCNT 

RTS 



i UNPACK KEYWORD - INITIALIZATION 
i GET REST OF WORD 


A2F3 

A2F3 AO 00 
A2F5 84 88 
A2F7 20 4C A1 

A2FA 85 89 
A2FC 85 8A 
A2FE 60 


UNPNUM 


A2FF 

A2FF E6 8F 
A301 E6 89 
A303 A5 89 
A305 4A 


r 


A307 A5 8E 
A309 90 07 
A3 08 49 Ql __ 


A30D FO 01 
A30F E8 
A3 10 


A3 10 95 8E 
A3 12 

A3 12 85 80 


A314 8A 
A31 5 18 
A3 16 65 J3C 


A31 8 90 02 
A31 A E6 8D 
_A3 1 C 
A3 1C 85 8C 
A31E 60 


A320 4C 2E A3 
A323 


A323 86 82 
A325 AO .00 


A327 98 
A328 48 
A329 20 4C AX 


A32C 85 8A 
A32E 

A32E 20 24 AJL 
A331 84 8B 


LDY 

#0 

STY 

KEYCHR 

JSR 

LDNIB 

STA 

KEYLEN 

STA 

KEYLN2 

RTS 



i UNPACK KEYWORD - MIDDLE OF LOOP - FETCH & STORE LENGTH 
i SET UP Y REG FOR LDNIB 


UNPNXT 


INC 

INC 

LDA 

LSR 

TAX 


KEYCNT 

KEYLEN 

KEYLEN 

A 


; UNPACK KEYWORD - GOTO NEXT WORD (END OF LOOP) 


LDA 

BCC 

EOR 


KYLFRT 
KEY50 
Ml 


BEQ 
I NX 


KEY40 


KEY4 Q- 


KEY50 


STA 


STA 


KYLFRT 


LFRT 


TXA 

CLC 

ADC 


PKPTR 






— 




KEY60 

PKPTR+1 




jK£Y6Q 









UNP10 


UNPACK 


UNPACK WORD INTO TOKBUF, X FROM (PKPTR ) i LFRT 
RETURNS LENGTH OF WORD IN Y 


STX 

LDY 


TOKPTR 

#0 


TYA 

PHA 

JSR 




LDNIB 


UNP10 


STA 


JSR 


KEYLN2 


LDCHR 


STY 


LDNBSV 






HJtC civ sun ru 


A331 84 8B 

1 


STY 

LDNBSV 

1 

1 COLLEEN CALCULATOR, BY 

C SHAW 




A333 AA 


TAX 



A334 68 


PLA 



A335 A8 


TAY 



A336 8A 


TXA 



A337 91 82 


STA 

( TQKPTR ) , Y 


A339 C8 


I NY 



A33A 98 


TYA 



A33B 48 


PHA 



A33C A4 8B 


LDY 

LDNBSV 


A33E C6 8A 


DEC 

KEYLN2 


A340 DO EC 


BNE 

UNP10 


A342 68 


PLA 



A343 A8 


TAY 



A344 85 82 


STA 

TQKPTR 

j_# OF CHARS 

A346 60 


RTS 



A347 

UNPKEY 



; UNPACK KEYWORD GIVEN TOKEN CODE IN TOKCOD 





i OUTPUT- CHARS IN TOKBUF, Y=TOKPTR» CS IF ERROR 

A347 A5 81 


LDA 

TOKCOD 


A349 C9 86 


CMP 

#STAR 


A34B 90 QF 


BCC 

UNKY10 


A34D C9 8D 


CMP 

#EQUAL+ 1 

; OUT OF RANGE? 

A34F BO 2D 


BCS 

UKERR 

; YES. 

A351 AA 


TAX 


; NO. RPFOTAI CHAR 

A352 BD 46 BA 


LDA 

TOKCHR-STAR, 

X 

A355 8D 00 05 


STA 

TOKBUF 


A3 58 AO 01 


LDY 

#1 


A35A DO OE 


BNE 

UNKRTN 

i JMP 

A35C 

A35C 20 E2 A2 _ 

UNKY10 

JSR 

UNPINT 

j INITIALIZE 

A35F 

A35F A5 8F 

UNPLP 

LDA 

KEYCNT 


A361 C5 81 ... _ 


CMP 

TOKCOD 


A363 DO OE 


BNE 

UNKY20 


A365 A2 00 


LDX 

#TOKBUF 


A367 20 23 A3 


JSR 

UNPACK 


A36A 

A36A 84 82 

UNKRTN 

STY 

TOKPTR 


A36C A9 9R 


LDA 

#CR 


A36E 99 00 05 


STA 

TOKBUF, Y 


A37 1 18 


CLC 


; NO ERROR 

A372 60 


RTS 



A373 

A273 20 F3 A2 

UNKY20 

JSR 

UNPNUM 

i CONTINUE WITH NEXT WORD 

A376 FO 06 


BEG 

UKERR 

; END OF LIST => ERROR (SHOULDN'T HAPPEN) 

A378 20 FF A2 


JSR 

UNPNXT 


A37R 40 5F A3 


JMP 

UNPLP 


A37E 

A37E 20 OB A2 

UKERR 

JSR 

PTCRPD 

i PUT CR ON SCREEN AND PRINTER 

A381 4C B5 9B 


JMP 

KEYERR 



• 

COLLEEN CALCULATOR* 

BY C SHAW 




• 

A384 

GETMN 



; FETCH & STORE MEMNUM 



1 



CARRY SET => ERROR, CLEAR => NO ERROR 

T 

a 

A384 A9 2C 


LDA 

#MEMMSG 

; DISPLAY "ENTER MEMORY REGISTER 0-99" 

• 

A386 20 FO 9B 


JSR 

PUTMSG 



A389 20 D4 AQ 


JSR 

GETINT 



A38C DO 07 


BNE 

BITERR 

; ERROR 

• 

A38E C9 64 


CMP 

#MEMLEN 



A390 BO 03 


BCS 

BITERR 

i ERROR 


A392 85 A3 


STA 

MEMNUM 

* OK 0 -> MEMLEN-1 

• 

A394 60 


RTS 




A395 

BITERR 





A395 A9 91 


LDA 

#B ITMSG 


• 

A397 4C B7 9B 


JMP 

ERRSUB 

; DISPLAY ERROR MESSAGE (WILL RETURN WITH CS => ERROR) 

• 

A39A A9 05 

LDFV 

LDA 

#5 

i FROOFV 


A39C DO 14 


BNE 

MEMLDO 


a 

A39E A9 06 

LDI 

LDA 

#6 

i FROC-I 

V 

A3A0 DO 10 


BNE 

MEMLDO 



A3A2 20 4E A9 

ZJLILDN 

JSR 

Z1PLJ 

iCALL Z1PLI TO COMPUTF (1+T) AND 1 HAn w 

a 

A3A5 20 BB 9F 


JSR 

FPUSHO 


V 

A3A8 A9 07 

LDN 

LDA 

#7 

; FROC-N 


A3AA DO 06 


BNE 

MEMLDO 


ft 

A3AC A9 08 

LDPMT 

LDA 

#8 

; FROOPMT 

p 

A3AE DO 02 


BNE 

MEMLDO 


— 

A3B0 A9 09 

i-DPV 

LDA 

#9 

i FRO C-PV 

> 

A3B2 

MEMLDO 



i FRO O MEM(A) 

1 

A3B2 20 BE A3 


JSR 

MEMLD2 


1 

A3B5 4C 89 DD 


JMP 

FLDOR 



A3B8 

MEMLD1 



j FR1 <- MEM < A ) 


A3B8 20 BE A3 


JSR 

MEMLD2 



A3BB 4C 98 DD 


JMP 

FLD1R 



-A3BE 

MEMLD2 





A3BE 85 A3 


STA 

MEMNUM 

i SET UP X & Y REGS TO LOAD OR STORE MEM (A) 


A3C0 

MEMLDR 



i SET UP X & Y REGS TO LOAD OR STORE MEM (MEMNUM) 


A3C0 A4 CF 


LDY 

MEMADR+1 



A3C2 A5 A3 


LDA 

MEMNUM 

i MEMNUM <- MEMNUM-tt-6 (FPREC=6) 


A3C4 OA 


ASL 

A 



A3C5 65 A3 __ . 


ADC 

MEMNUM 

j (CARRY IS CLEAR) 


A3C7 90 01 


BCC 

MLD10 




A3C9 C8 
A3CA. 


I NY 


JMLDXCL 


A3CA OA 
A3CB 90 01 
A3 CD C8 


A3CE 
A3CE AA 
..A3CE-..6Q 


ASL 

BCC 

INY, 


A 

MLD20 


MLD20 


TAX 

RTS 


A3DQ 


A3D0 20 84 A3 
A3D3 90 03 


A3D5 68 
A3D6 68 
-A3JQZ 60 


A3D8 


JSR 

BCC 

PLA 

PLA 

RTS 


GETMN 

MS10 


MSI 0 


; SET UP FDR DIV, PRD, SUB, SUM, XCHM, SRCL 
CARRY SET ~> ERROR, CLEAR O NO ERROR 
; GET MEMNUM 


; ERROR => RETURN 2 LEVELS UP 


COLLEEN CALCULATOR, BY C SHAW 


nt>iu 


i ERROR => RETURN 2 LEVELS UP 


A 3D3 9Q Q3 . _ - 

A3D5 68 
A3D6 68 

A3D7 60 

A3D8 MS 10 


tJCL 

PLA 

PLA 

RTS 


COLLEEN CALCULATOR/ BY C SHAW 


A3D8 

Aono 

20 

on 

BB 

13 A 

9F 

nn 

JSR 

JSR 

FPUSHO 

FMOVE 


i SAVE X ON STACK 
i FR1 <- X 

A3DE 

A3E1 

A '-JCT A 

20 

20 
1 Q 

CO 

89 

A3 

DD 

JSR 

JSR 

CLC 

MEMLDR 
FLDOR • 


; SET UP X %/. Y REGS 
i FRO <- MEM (MEMNUM) 
j INDICATE NO ERROR 

AJfc.4 

A3E5 

A3E6 

lO- 

60 

A D 


RTS 

MEMMUL 

STA 

MEMNUM 


/FRO <- FRG*MEM(A> 

A3E8 20 
A3EB 20 
A3EE 4C 

Aw 

CO 

98 

97 

A3 

DD 

AS 

JSR 

JSR 

JMP 

MEMLDR 

FLD1R 

SFMUL 






C U1 IttH 


COLLEEN CALCULATOR. BY C SHAW 


■ 

A3F1 

A3F1 A9 24 

PIOVL 

LDA 

i LOAD X St Y 
#R ADP 12 

* 

A3F3 18 
A3F4 65 FB 

AQCA AA 


CLC 

ADC 

TAX 

RADFLG 


... AmTjQ — IV — — 

A3F7 AO BA 
A3F9 60 


LDY 

RTS 

#RADP 12/256 


A3FA 

A3FA A2 03 

Aocr 

SCMP2 

SCLP2 

LDX 

#3 

<• 

. . _ nur U- ■ — — — ~ ' 

A3FC B5 BO 
A3FE 49 FF 
A/inn 95 BO 


LDA 

EOR 

STA 

BINARY, X 
#*FF 

BINARY, X 

• 

n^vU * — fl* — — 

A402 CA 
A403 10 F7 
A405 60 


DEX 

BPL 

RTS 

SCLP2 


PREPARATION FOR LOADING REG O OR 1 WITH PI/2/ 90 OR 100CIF 


i TAKE COMPLEMENT OF BINARY 


A406 

A406 20 FA A3 
A409 E6 B3 


A40B DO OA 
A40D E6 B2 
A40F DO 06 


A41 1 E6 B 1 
A413 DO 02 
A415 E6 BO 


A417 
A417 60 


A418 


A41 8 08 
A419 AA 
A41 A FO OD 


A41C 
A41C 28 

A41D 08 

A41E 26 B3 
A420 26 B2 
A422 26 B 1 
A424 26 BO 
A426 CA 
A427 DO F3 
A429 
A429 28 
A 42 A 60 


S2CMP 


JSR 

INC 

BNE 

INC 

BNE 

INC 

BNE 

INC 


SCMP2 
BINARY+3 
STCRTN 
B INARY+2 
STCRTN 


BINARY+1 

STCRTN 

BINARY+O 


. TAKE COMPLEMENT OF BINARY AND ADD 1 


STCRTN 


RTS 


SLSHF2 


P HP 
TAX 
BEQ 


; SHIFT BINARY LEFT A PLACES 

RETURN WITH ORIGINAL PROCESSOR STATUS 

i ROTATING IN CARRY 


SLS05 


SRTN 


BINARY+3 
B INARY+2 
BINARY+1 
BINARY+O 

SLS05 


SRTN 

SNUM50 


COLLEEN CALCULATOR/ BY C SHAW 


COLLEEN CALCULATOR/ BY C SHAW 


A42B SNUMB 

NUMBER PROCESSING: CONVERT ASCII IN TOKBUF TO FP IN FRO 


A42B A5 87 LDA DHOFLG 

A42D FO 5E BEQ SNUM40 ; DECIMAL 


A42F 

A/IOI 

A9 

O c; 

FF 

o n 

LDA 

STA 

#-l 

TOKPTR 

A433 

20 



BO A1 

JSR 

PCLRO 

A436 



SNUM20 


AdTA 

EA 

82 

- INC 

TOKPTR 

A438 

AO 

00 

LDY 

#0 

A43A 

B 1 
CQ 

82 

LDA 

CMP 

(TOKPTR), Y 
#CR 

A43E 

DO 

37 

BNE 

SNUM25 


HEX BINARY OR OCT => CONVERT TO F. P. 


CONTINUE 


A44Q 2D BE 9F 
A443 20 2E 9D 
A446 20 9D 9F 


A449 A2 00 
A44B 

A44B B5 BO 
A4 4D 05 AA 
A44F 90 D9 
A451 DO 07 
A453 EB 
A454 EO 04 
A456 DO F3 
A458 FQ DO 
A45A 

A45A A2 00 


A45C B5 BO 
A45E D5 A8 
A460 90 QZ 
A462 DO C6 
A464 E8 
A465 EO 04 
A467 DO F3 


A469 

A469 A2 03 
A46B 

A463 B5 BO 
A46D 15 AC 
A46F 95 BO • 

A471 J1A 

A472 10 F7 

A474 4C 27 AS 

A477 

A477 48 

A478 A5 87 
A47A 20 84 A8 

A47 Di8 

A47E 38 
A47F E9 30 


i 

$ 


JSR 

JSR 

JSR 


LDX 


FPUSHO 

FPBNCK 

FPOPO 


; S A VF F p * — 

; CONVERT FP TO BINARY (4 BYTES) & CHECK WHETHER IT'S WITHIN RANGE 
; RESTORE FP # 


IS # > BITBIN <2"MBITINT-1 )-l ) AND <= BITBN2 ( 2' % B IT INT ) -1? 

IF SO, THEN NUMBER WAS MEANT AS NEGATIVE, E. G. $FFFF 

*0 — 


BBLP1 


BB 10 


LDA 
CMP 
BCC 
BNE 
I NX 
CPX 
BNE 
BEQ 

LDX 


LDA 

CMP 

BCC 

BNE 

INX 

CPX 

BNE 


BINARY, X 
BITBIN, X 
SNUM50 
BB 10 


#4 

BBLP1 

SNUM50 

#0 


BINARY, X 
BITBN2, X 
BB30 
SNUM50 


#4 

BBLP2 


BB30 

LDX 

BBLP3 

LDA 

ORA 

STA 

DEX 

BPL 

JMP 

SNUM25 

PHA 

LDA 

JSR 

PLA 

SEC 

SBC 


#3 

BINARY, X 
BINMIN, X 
BINARY, X 

BBLP3 

BINFP2 


DHOFLG 

INTMUL 


#'0 


< BITBIN => RETURN 
i > BITBIN => OK 


i CONTINUE 

i_= BITBIN => RETURN 


; BITBN2 => OK 
;> BITBN2 => RETURN 


i = BITBN2 => OK 

j OK => INPUT WAS REALLY MEANT AS NEG. # 

; OR WITH 3 INMIN= - ( 2'- ( B ITNIT-l ) ) TO EXTEND SIGN BIT 


A=MSB WHICH SHOULD BE NEG. 
i CONVERT TO NEW FLOATING # (SHOULD BE 


NEG. ) AND RETURN 


; '0- 7 9 -> 0-9 


*111 UlM 


COLLEEN CALCULATOR, BY C SHAW 


^ A48 1 C9 11 

A 483 ''0 03 

■ A485 E9 07 

^ ! A487 

HHK A 4 8/ Jo ‘,'3 ,W 

■ A48A 4C 36 A4 

H 1 A48D 

A48D 30 33 ‘-v 

■ ^ A490 85 F-"3 

^ A492 84 F4 

*39 A 4 9 4 A 9 00 

■ m A496 85 F2 

■ ^ A49S 4C 00 1)8 

CMP #'A-'0 

BCC SNUM30 

SBC # 7 A— ' 0- 1 0 i A-F -> 10-15 

SNUM30 

JSR INTADD 

JMP SNUM20 

SNUM40 

JSR TKINT2 iA <- #TGKBUF, Y <- #TOKR(iP/o^ 

STA INBUFF IOKBUF/256 

STY INBUFF+1 

LDA #0 

STA CIX 

JMP AFP 




c 

>VI * 

1 


tmm 

u 


■ * 





1 m 


# 



• 


# 


• 


0 

• 


9 



> 

ft COLLEEN CALCULATOR, BY C 

SHAW 



COLLEEN CALCULATOR, BY C SHAW 


_A4jEHL 


A4BD A5 94 
A4BF DO 03 
j A4.C1- 50 BB -9EL 


A4C4 
A4C4 
.A4D6. AQ JA 


A2 00 


A4CB 

A4CE 

A4D1 


20 3A A9 
20 24 A9 
20 IB B1 


A4D4 

A4D5 

A4D7 

A4DA 

A4DD 


68 

10 C4 
20 B6 DD 
20 B4 A4 
4C 6A A9 






• 

* 



ROUTINES CORRESPONDING TO KEYWORDS 

A49B 




RETURN 




A49B 

60 




RTS 



A49C 




SAC OS 



i ARCCOS (FRO ) = ARCTAN(SGRT( 1 -FR0*FRG ) /FRO ) 

A49C 

A5 

D4 



LDA 

FRO 


A49E 

DO 

06 



BNE 

SAC30 









ARCCQS ( 0 ) = 90 DEG = PI/2 RAD. SPECIAL CASE BECAUSE TAN UNDEFINED 

A4A0 




SAC 10 




A4A0 

20 

FI 

A3 


JSR 

PIQVL 

i LOAD X & Y REGS TO GET PI/2, 90 OR 100 

A4A3 

4C 

89 

DD 


JMP 

FLDOR 


A4A6 




SAC30 




A4A6 

48 




PHA 



A4A7 

20 

8C 

9F 


JSR 

ARCSUB 

i FR 1 <:- SORT ( l-FRO-K-FRO > 

A4AA 

AS 

FO 



LDA 

FR1 


A4AC 

DO 

ID 



BNE 

SAC34 


A4AE 

68 




PLA 


jABSVAL(FRO) = 1 

A4AF 

30 

03 



BMI 

S180PI 

■ 

A4B 1 

4C 

BO 

A1 


JMP 

PCLRO 

i FR0=+1 . ARCCOS ( +1 ) = 0 

A4B4 




S180PI 



; FRO <- 180 OR 200 OR PI. DEPENDING ON RADFLG 

A4B4 

A6 

FB 



LDX 

RADFLG 


A4B6 

FO 

OC 



BEG 

SPI10 

; FROC-P I 

AARR 

A9 

RA 



LDA 

#180 

a DEG => 180 

fTTUQ — 




i 

CPX 

#GRADON 






# 

BNE 

SAC32 






, 

LDA 

#200 

i GRAD => 200 





i SAC32 




A4BA 

4C 

B9 

A1 


JMP 

PSETO 



SRI 


LDA 

BNE 

■JSR 


RPNALG 

SPI10 

FPUSHO 


SPI 10 


A4C8 4C 89 DD 
A4CR 


LDX 

LDY 


#P ICONST 
#P I CONST/ 2 56 



JMP 


FLDOR 






JSR 

JSR 


SFDIV 

SRECIP 






PLA 

BPL 

JSR 

JSR 

JMP 


RETURN 

FMOVE 

S180PI 

SFADD 


;rnR <-o =-> ADD 180 DEG OR 200 GRAD GR PI TO ARCC03 


COLLEEN CALCULATOR/ BY C SHAW 


A4E0 

SB ITS 



i ! 

B 

A4E0 A9 20 


LDA 

#BTSMSG 

i : 

A4E2 20 FO 9B 


JSR 

PUTMSG 


A4E5 20 D4 AO 


JSR 

GETINT 

i j 

A4E8 BO 07 


BCS 

SBERR 

i i 

A4EA AA 


TAX 



A4EB FO 04 


BEQ 

SBERR 


A4ED C9 21 


CMP 

#32+1 


A4EF 90 03 


BCC 

SBITS2 

i 

A4F1 

SBERR 




A4F 1 4C 95 A3 


JMP 

B I TERR 


A4F4 

SB I TS2 




A4F4 85 9D 


STA 

B I TINT 


A4F6 AA 


TAX 



A4F7 CA 


DEX 



A4F8 8A 


TXA 



A4F9 A2 00 


LDX 

#0 


A4FB 86 B3 


STX 

B INARY+3 


A4FD 86 B2 


STX 

B INARY+2 


A4FF 86 B 1 


STX 

B INARY+1 


A501 86 BO 


STX 

B INARY+O 

j 

A503 38 


SEC 



A504 20 18 A4 


JSR 

SLSHF2 

i 

A507 A2 03 


LDX 

#3 



A 509 


SJ3LP1 


A509 B5 BO 
A50B 95 A4 

A5QD CA 

A50E 10 F9 
A51 0 20 FA A3 
A513 A2 03 


LDA 

STA 

DEX 

BPL 

JSR 

LDX 


BINARY, X 
BITBIN, X 

SBLP1 

SCMP2 

#3 


; TAKE COMP 


A51 5 

A51 5 B5 BO 

jA5JJL-_95__A£L 


SBLP2 


LDA 

STA 


BINARY, X 
BINMIN, X 


A51 9 CA 
A51 A 10 F9 


DEX 

BPL 


SBLP2 


A51C 20 FA A3 


JSR 

SCMP2 

A51F A9 01 


LDA 

#1 

A521 38 


SEC 


A522 20 18 A4 


JSR 

SLSHF2 

A525 A2 03 


LDX 

#3 

A527 

SBLP3 



A527 B5 BO 


LDA 

BINARY, X 

A 529 95 A8 


STA 

BITBN2, X 

A52B CA 


DEX 


A52C 10 F9 


BPL 

SBLP3 

A52E A2 BO 


LDX 

# '0+$80 

A 530 8E 00 05 


STX 

TOKBUF 

A533 A5 9D 


LDA 

BITINT 

A535 

DSTLP 



A535 C9 OA 


CMP 

#10 

A537 90 07 


BCC 

DST10 

A539 E9 OA 


SBC 

#10 

A53B EE 00 05 


INC 

TOKBUF 

A53E DO F5 


BNE 

DSTLP 

A540 

DST10 



A540 69 BO 


ADC 

#' 0+*80 


(2^'BITINT ) -1 


— 


i CONVERT INT 0-99 TO CHAR 00-99 (INVERSE 


i (CARRY SET) 


; JMP 


; (CARRY CLEAR) (INVERSE VIDEO) 


COLLEEN CALCULATOR, BY C SHALI 


A540 69 BO 


ADC 


# '0+$80 


* (CARRY CLEAR) (INVERSE VIDEO) 


COLLEEN CALCULATOR, 


BY C SHAW 


A542 8D 01 05 
A545 A2 02 
A547 A9 13 


STA TOKBUF+1 

LDX #2 

LDA #DBITS 


i LSDIGIT 
i 2 CHARS 


A549 

A549 85 55 
A54B 

A54B A9 01 
A54D 85 54 
A54F 20 78 A5 
A552 48 
A553 98 
A554 AO 05 
A556 20 74 A2 
A559 
A559 68 
A55A 85 BD 
A55C 60 


DSPST 

DSPST2 


DSPLOD 


STA COLCRS 


LDA 

STA 

JSR 

PHA 

TYA 

LDY 

JSR 

PLA 

STA 

RTS 


#ROWSTT 

ROWCRS 

DSPCLR ; CLEAR DSPFLG Y<-0 AC-OLD DSPFLG 

> & SAVE OLD DSPFLG => ALWAYS DISPLAY 
; 0 = LSB OF ADDR 

#TQKBUF/256 

PUTCHS 

i LOAD OLD DSPFLG RESTORE 


DSPFLG ; RESTORE OLD DSPFLG 


A55D 

A55D A9 

16 


SFI X 

LDA 

#FIXMSG 

L DI SPLAY "FNTFR H-fl" 


A55F 20 

FO 

9B 


JSR 

PUTMSG 



A562 20 
A565 BO 

D4 

8A 

AO 


JSR 

BCS 

GETINT 

SBERR 

i GET NEXT TOKEN: WANT 
. j ERROR 

INTEGER 0-8 

A567 C9 

09 



CMP 

#8+1 



A569 BO 
A56B 

86 


SFIXS 

BCS 

SBERR 

i ERROR - TOO LARGE 
ENTRY PT IF A-VAl TD 

T WTFGFR 

A56B 85 

CO 



STA 

FIXNUM 

* i i -^. ii n vnL. 1 1 / 

1 1 M 1 UV7LIA . 

A56D 69 
A56F 8D 

BO 

00 

05 . 


ADC 

STA 

#'0+$80 

TOKBUF 

; -> ASCII (INVERSE VIDEO) 


A574 A2 01 
A576 DO D1 


LDA 

LDX 

BNE 


#DFI X 
#1 

DSPST 


j DISPLAY IN STATUS AREA OF SCREEN 
; # OF CHARS 

i JMP TO DISPLAY STATUS 


A578 DSPCL.R 

i 

A57B AS BJQ 

A57A AO 00 
A57C 84 BD 

A57E 60 


i CLEAR DSPFLG & LOAD OLD DSPFLG INTO A 
A C- OLD DSPFLG X UNCHANGED Y <- 0 

LDA DSPFLG 

LDY #0 

STY DSPFLG 

RTS __ SllPff- 


A57F 

SCQMPL 


iX C- COMPLEMENT ( X ) 

A57F 20 51 A9 

JSR 

ONEADD 

i XC-X+l 


A582 

A582 A5 D4 
A584 FO 04 
A586 49 80 
A588 85 D4 
A58A 
A 58 A 60 


SCHGSG 

LDA 

BEQ 

EQR 

STA 

SCH10 

RTS 


FRO 

SCH10 

#$80 

FRO 


; FROC FRO 


A58B 


SCLINI 


COLLEEN CALCULATOR. BY C SHAW 


A58B 

A2 

21 

LDX 

#ENTER 

A USD 

86 

81 

STX 

TOKCOD 

A38F 

20 

OB AE 

JSR 

SENTER 

A 392 

A9 

9F 

LDA 

# I NTCHR-3 

A594 

AO 

18 

LDY 

#FPREC*4 

A596 

DO 

04 

BNE 

CLST10 


A598 

A598 A9 B4 
A59A AO 12 
A59C 

a bop a ci oc 

SCLSTA 

CLST10 

LDA 

LDY 

STA 

#STACHR— 3 
#FPREC*3 

T 1 

ADtL “r 

A59E A9 00 
A5A0 

aca n 91 CE 

CLSLP1 

LDA 

STA 

#0 

(MEMADR)# Y 

n JMw 7 1 wl. 

A5A2 C8 
A5A3 CO 3C 

acac on co 


I NY 
CPY 
BCC 

#FPREC* 1 0 
CLSLP1 

ASA 7 A9 08 
A5A9 85 54 
ASAP A9 06 


LDA 

STA 

LDA 

#R0WREG+3 

ROWCRS 

. *6 

n Jfiu n t wu 

ASAD 85 9E 
A5AF 

ASAP A9 14 

CLSTLP 

STA 

LDA 

TO 

#20 - 

n Jnr n 7 1 “ 

A5B 1 85 55 
A5B3 A5 9F 

ASPS 1 8 


STA 

LDA 

CLC 

COLORS 
T 1 

n Ju J 1 u - i i — «■■■ 

A5B6 69 03 
A5B8 85 9F 
A5BA AO BA 


ADC 

STA 

LDY 

#3 
T 1 

#INTCHR/256 

A5BC A2 03 
A5BE 20 74 A2 
A5C1 E6 54 


LDX 

JSR 

INC 

#3 

PUTCHS 

ROWCRS 

A5C3 C6 9E 
A5C 5 10 E8 
A5C7 30 03 

• 

DEC 

BPL 

BMI 

TO 

CLSTLP 

DMEMAL 


A5C9 SCLMEM 


A5C9 

20 

03 

AA 


JSR 

MEMCLR 


A5CC 




DMEMAL 




A5CC 

A5 

BD 



LDA 

DSPFLG 


A5CE 

DO 

BA 



BNE 

SCH10 


A5D0 

20 

BB 

9F 


JSR 

FPUSHO 


A5D3 
a sns 

A9 

00 

no 

AT 

DMFLP 

LDA 

JSR 

#0 

MEMLDO 


n uU J 

A5D8 

c.U 

20 

u c_ 

86 

n 

9D 

L/t UL.L.I 

JSR 

TOKNUM 


A5DB 

20 

72 

A8 


JSR 

DSPMEM 


A5DE 

A6 

A3 



LDX 

MEMNUM 


A5E0 

E8 




INX 



A5E1 

8A 




TXA 



A5E2 

C9 

OA 



CMP 

#10 


A5E4 

90 

EF 



BCC 

DMELP 


A5E6 

4C 

9D 

9F 


JMP 

FPOPO 





COLLEEN CALCULATOR# BY C SHAW 


i GOTO ENTER MODE AND CHANGE STATUS LINE 

i CLEAR MEM4-9 FOR INTEREST CALCS & DISPLAY TITLES 
i JMP 

i CLEAR MEM 3-9 FOR STATISTICS & DISPLAY TITLES 
; CLEAR MEM 

j START WITH MEM 3 

i display titles in COL 20 


; DISPLAY CHARS ON SCREEN ONLY 
j GOTO NEXT LINE ON SCREEN 

; CONTINUE 

DONE. JMP TO DISPLAY NEWLY ZEROED MEM 


; CLEAR MEMORY 


; DISPLAY ALL OF MEM (0-9) 

i RETURN IF NO DISPLAY 
i SAVE X 

i FRO<-MEM( MEMNUM) (USING MEMNUM) 
j TOKBUFC-ASCI I (FRO) 
i DISPLAY IN MEM AREA OF SCREEN 


; CONTINUE 
; DONE - RELOAD X 


VU 7r 


vn r 


r r ur w 


I L/UMU 


iu-uunu a 


COLLEEN CALCULATOR. BY C SHAW 


A1B0 


A5E9 

A5E9 20 BB 9F 
A5EC 20 F2 AO 
A5EF BO 21 
A5F1 C9 45 
A5F3 BO ID 
A5F5 AA 
A5F6 DO 02 


SCLX 


SFACTO 


A5F8 A9 01 
A5FA 


SF10 


A5FB 

A5FE 

A5FE 


20 B9 A1 


20 B6 DD 


SFLP 


A601 

A602 


68 

C9 03 
90 OF 


A606 

A608 


E9 01 
48 

20 B9 Ai 


PHA 

JSR 


PSETO 


A60C 

A60F 

A611 


20 DB DA 
90 ED 

-6B- 


JSR 

BCC 

PLA 


FhUL 

SFLP 


A612 

A612 


SFERR 


4C 86 A9 


JMP 


CRYCHK 


= 

PCLRO 




JSR 

FPUSHO 

i X ! = X(X-1 ) (X-2> 

i GINT2 WILL POP 



JSR 

BCS 

THP 

GINT2 

SFERR 

; A= INTEGER 0-255 
i ERROR 



unr 

BCS 

TAX 

DKIC 

SFERR 
cc < n 

i ERROR - TOO LARGE 



dNC 

LDA 

PMA 

or x \j 

#i 

; 0! = 1 ! = 1 



JSR 

ICR 

PSETO 

cMnuc 

; FACT <- N 



PLA 

CMP 

n nn 

rnuvw- - 

#3 

crnnM 






SBC 

#1 

• 

X 

A 

1 

X 

1 

M- 




j INI -> FP 


i FACT <- FACT * X 

i CARRY SET => MULTIPLY ERROR (SHOULDN'T HAPPEN) 


; FRO <- 0 "ARITHMETIC OVERFLOW" 


A615 SFDON 

A61 5 SPQW60 

A615 60 R TS 


A616 SROOT 

A616 20 24 A9 JSR SRECIP 


A619 

A619 20 86 9F 

A61C A5 £0 

A61E 30 06 
A620 DO OA 


A624 10 03 
A626 4C 88 A9 


A629 4C BO Al 
A62C 

A62C 20 5C 9F 


SPOWER 

JSR FP0P1 

LDA FRi 

BMI SP0W25 

BNE SP0W40 


SP0W25 


SP0W40 


LDA 

BPL 

JMP 


JMP 

JSR 


FRO— 

SP0W30 

CRYSND 


PCLRO 

FST1T 


A62F A5 D4 


A632 29 7F 
A634 85 D4 


A636 20 BB 9F 
A639 A9 01 

A£3B- 85 Al 

A63D 20 7 A A9 


LDA 


AND 

STA 

JSR 

LDA 

SIA 

JSR 


FRO 


#*7F 

FRO 


FPUSHO 

#1 

INTFLG 

SFRACT 


iY ROOT X = Y POWER 1/X 
Ty^'X = EXP10(X* LOGIO(Y)) 

; Y < 0 => ERROR STOP 

j Vssfl 

i X<0 => ERROR CLEAR FRO 


iSAVE SIGN OF X 


i X <- i X S 


TAKE FRACTIONAL PART IF =0 THEN X IS AN INTEGER 


COLLEEN CALCULATOR/ BY C SHAW 


A640 A5 D 4 

LDA 

FRO 


A642 DO QC 

BNE 

SP0W50 


A644 20 49 9F 

JSR 

FLDOT 

; X IS INTEGER 

A647 20 7 A A9 

JSR 

SFRACT 

; TAKE FRACTIONAL PART 

A64A A5 D4. 

LDA 

FRO 


A64C DO 02 

BNE 

SP0W50 


A64E C6 A1 

DEC 

INTFLG 

; Y IS INTEGER 

A650 

SP0W50 



A650 20 49 9F 

JSR 

FLDOT 

; Y 

A653 20 BE A6 

JSR 

SLOGTE 


A656 20 94 A8 

JSR 

SPMUL 

i X * LOGTEN(Y) 

A659 20 07 98 

JSR 

SEXPTE 


A65C A5 A1 

LDA 

INTFLG 

; BOTH X & Y INTEGER? 

A65E DO 17 

BNE 

SP0W80 

iislQ 


A660 

A660 A2 6 C 


SROUND 


ROUND ( X ) = SI GN < X ) *TRUNC < AES ( X ) +. 5) 


LDX 


#FHALF 


A664 20 98 DD 
A667 A5 D4 
A669 10 G6_ 


JSR 

LDA 

BPL 

FLD1R 

FRO 


A66B 20 83 A9 
A66E 4C 74 A6 
A671 

SR0U10 

JSR 

JMP 

SFSUB 

SP0W70 

i NEG => SUBTRACT . 5 

A671 20 6A A9 
A674 

A674 20 7D A6 

SP0W70 

JSR 

JSR 

SFADD 

STRUNC 

i TRUNCATE FRO 

A677 
A 677 68 
A678 10 9B 

SP0W80 

P LA 
BPL 

SP0W60 

iLOAD SIGN OF X 
i POSITIVE => RETURN 

A67A 4C 24 A9 


JMP 

SRECIP 

/NEGATIVE => 1/X 

A 67D 

STRUNC 





A67D 20 95 A6 


A680 

A680 4C 00 DC 


XINT4 


JSR 


JMP 


XINT 

NORM 


/PERFORM INT FUNCTION (ALMOST) 
; NORMAL I ZE ( TRUNCATE ) 


A683 

A683 20 95 A6 
A686 A6 D4 
A688 10 F6 
A68A AA 
A68B FO F3 


SINTEG 


USR 

LDX 

BPL 

TAX 

BEQ 


XINT 

FRO 

XINT4 

XINT4 


i FRO <- INT ( FRO > 
j INTEGER SUBROUTINE 


A68D 

A68D A9 01 


A68F 

A68F 20 75 A? 

A692 4C 82 A5 


SUBONE 


LDA 


SUB I NT 


JSR 

JMP 


#1 


INTSUB 

SCHGSG 


i FRO <- FRO-1 


i FRO O FRO - A 


A695 

A695 A5 D4 
A697 29 7F 


XINT 


LDA 

AND 


INT ROUTINE FROM SHEP ATARI BASIC B0D5-B0EE 


FRO 

#*7F 


— ijQET EXPONENT 
i AND OUT SIGN BIT 


A697 29 7F 


AND 


#*7F 


COLLEEN CALCULATOR, BY C SHAW 


A699 

38 



SEC 

A69A 

E9 

3F 


SBC 

A69C 

10 

02 


BPL 

A69E 

A6A0 

A9 

00 

XINT1 

LDA 

A6A0 

AA 



TAX 

A6A1 

A9 

00 


LDA 

A6A3 

A8 



TAY 

A6A4 

A6A4 

EO 

05 

INT2 

CPX 

A6A6 

BO 

07 


BCS 

A6A8 

15 

D5 


ORA 

A6AA 

94 

D5 


STY 

A6AC 

E8 



I NX 

A6AD 

DO 

F5 


BNE 

A6AF 

A6AF 

60 


INTRTN 

RTS 


A6B0 ZLN1 1 

A6B0 20 4E A9 JSR 


A633 

A6B3 20 C9 A6 
A6B6 BQ 03 
A6B8 20 CD DE 
A6BB 

A6BB 4C 86 A9 


SLN 

JSR 

BCS 

JSR 

GOCRY 

JMP 


A6BE 




SLQGTE 

A6BE 

20 

C9 

A6 

JSR 

A6C 1 

BO 

F8 


BCS 

A6C3 

20 

D1 

DE 

JSR 

A6C6 

4C 

86 

A9 

JMP 

A6C9 




LOGCHK 

A6C9 

38 



SEC 

A6CA 

A5 

D4 


LDA 

A6CC 

FO 

El 


BEQ 

A6CE 

A2 

05 


LDX 

A6D0 




LOGCLP 

A6D0 

B5 

D4 


LDA 

A6D2 

DD 

42 

BA 

CMP 

A6D5 

18 



CLC 

A6D6 

DO 

D7 


BNE 

A6D8 

CA 



DEX 

A6D9 

10 

F5 


BPL 

A6DB 

68 



PLA 

A6DC 

68 



PLA 

A6DD 

4C 

BO 

A1 

JMP 


A6E0 




INTMOD 

A6E0 

48 



PHA 

A6E1 

20 

BB 

9F 

JSR 

A6E4 

68 



PLA 

A6E5 

20 

B9 

A1 

JSR 


#*3F 

XINT1 

#0 


#0 


#FPREC— 1 
INTRTN 
FRO+1, X 
FRO+1, X 

INT2 


Z1PLI 


LOGCHK 

GOCRY 

LOG 

CRYCHK 


LOGCHK 

GOCRY 

L0G10 

CRYCHK 


FRO 

INTRTN 

#FPREC-1 

FRO, X 
ONE, X 

INTRTN 

LOGCLP 


PCLRO 


FPUSHO 


PSETO 


; AND OUT SIGN BIT 


GET LOCATION OF 1ST FRACTION BYTE 
IF >= 0 THEN BRANCH 
ELSE SET =0 

PUT IN X AS INDEX INTO FROM 
SET ACCUM TO ZERO FOR ORING 
ZERO Y 

IS D. P. LOC >= 5? 

IF YES, LOOP DONE 

OR IN THE BYTE OF MANTISSA 

ZERO BYTE 

POINT TO NEXT BYTE 
JMP 


; LN< 1+1) 


i FRO <- LN(FRO) 

i CHECK FOR 0,1 (SPECIAL CASES) 


> FRO O L0G10 ( FRO ) 




i CHECK FOR QxJ 


i LN(GKL0G(0> => ERROR 


; NOT 1 => OK 


j SKIP LOGCHK RETURN 
i LN ( 1 ) =LOGTEN ( 1 ) =0 


; FRO <- FRO MOD A (ALSO MODFAC <- INKY/X)) 


COLLEEN CALCULATOR. BY C SHAW 


f 


A6E8 SHOD 

A6E0 20 B6 00 
A6EB 20 18 9F 
A4EE 20 £B 9F 
A6F1 20 3A A9 
A6F4 20 83 A6 
A £>F7 A 2 50 
A6F9 AO 05 
A6FB 20 A7 DO 
ASFE 20 94 A8 
A701 4C 80 A9 


JSR FhOVE 

JSR FLDOS 

JSR FPUSH1 

JSR SFDIV 

JSR SINTEO 

LDX 4M0DFAC 

LDY #M0DFAC/256 

JSR FSTOR 

JSR SPMUL 

JMP SPSUB 


iY MOD X = Y— X* INT ( Y/X ) 


i Y/X 

i INT ( Y/X ) 


i SAVE I NT < Y/X) IN MODFAC 
♦ INT < Y/X ) *X 
i Y - INT ( Y/X ) *X 





COLLEEN CALCULATOR, BY C SHAW 


A704 

A706 

A9 

FO 

00 

06 

SDEC 

LDA 

BEQ 

#0 

S0CT10 

/DECIMAL MODE 

; .JMP 

A708 

A70A 

A70C 

A9 

DO 

10 

02 

SHEX 

SOCT 

LDA 

BNE 

#16 

SOCT 10 

— — j \J i ir — 

/HEXADECIMAL (BASE 16) 
/ JMP 

A70C 

A9 

08 


LDA 

#8 

/ bET OCTAL MODE 

A70E 



S0CT10 




A70E 

85 

-82 


STA 

DHOFLG 


A710 

A712 

A715 

A9 

20 

4C 

OB 

5D A7 
CC A5 


LDA 

JSR 

JMP 

#DDEC 

CHSTAT 

DMEMAL 

* CHANGE STATUS LINE ON 
/ DISPLAY MEMORY IN NEW 


A71Q 


A718 A6 95 
A71 A FO OA 

A71C 

A71C 20 78 A5 
A71F 48 


SADV 


LDX 

BEQ 


PRNFLG 

SADV20 


SADV10 


A720 20 9D A2 
A723 4C 59 A5 

AZ26 

A726 20 37 A 7 
A729 BO 27 
A72B 20 1C A7 
A72E 

A72E A2 00 

A730 86 95 

A732 A2 20 
A734 4C F2 AC 

A737 

A737 A6 95 
A739 DO 16 

A73B A2 20 

A73D AO 04 
A73F 20 F6 AC 

A742 FO 09 

A744 
A744 98 

A745 48 

A746 20 2E A7 
A749 68 
A74A 4C AA AC 
A74D 

A74D A2 01 
A74F 86 95 
A751 
A751 18 


JSR 

PHA 


JSR 

JMP 


SADV20 


JSR 

BCS 

JSR 


SOFF 


LDX 


SON 


OFFERR 


P0PN10 


P0PN20 


LDX 

STX 


DSPCLR 


PUTCRP 

DSPLOD 


SON 

POPRTN 

SADV10 


#0 


LDX 

JMP 

#P IOCB 
XCLOSE 

LDX 

PRNFLG 

BNE 

P0PN20 

LDX 

#P IOCB 

LDY 

#4 

JSR 

CIOINT 

BEQ 

POPWi n 

TYA 

PHA 

JSR 

SOFF 

PLA 

JMP 

I0ERR2 


#1 

PRNFLG 


A752 

60 


POPRTN 

RTS 


9F9D 

9FBB 

A753 

A9 

06 

SPOP 

SPUSH 

SDEG 

LDA 

BNE 

LDA 

FPOPO 

FPUSHO 

#6 

SRAD10 

A755 

A757 

A757 

DO 

A9 

02 

00 

SRAD 

A759 

A759 

A75B 

85 

A9 

FB 

07 

SRAD10 

STA 

LDA 

nU 

RADFLG 

#DDEG 


i PUT CR ON PRINTER 
/PRINTER ON ALREADY? 

OUTPUT CR k RETURN 

; CLEAR DSPFLG 




/ RESTORE DSPFLG 


i NO. TURN ON 
» ERROR -> RETURN 
/OUTPUT CR 


/CLOSE PRINTER 

i always off 




\ 7 






/CLOSE X AND CALL CIO 
/ OPEN PRINTER FOR OUTPUT 

; ALREADY OPEN 






~ 








;su?cpLph, CB and call ci ° CHECK success 


/• SUCCESSFUL 
i NOT SUCCESSFUL 

-SAVE error # 




— - 


/■ RELOAD ERROR # 

/ DISPLAY "ERROR I/O ERROR # 


i NO ERROR 


/POP # OFF STACK 
i PUSH # ON STACK 


i SET RAD MODE 
; RADON 


/ CHANGE STATUS LINE ON S 






COLLEEN CALCULATOR, BY C SHAW 


A 75D 




CHSTAT 



i CHANGE 

STATUS 


A75D 

85 

55 



STA 

COLCRS 



" 1 wiarLHT iiMb l\fc.YWUr\D AI A UN SIATUS LINt 

A75F 

20 

47 

A3 


JSR 

UNPKEY 




A762 

20 

27 

9C 


JSR 

INVID 

i INVERSE 

VIDEO 


A765 

A6 

82 



LDX 

TOKPTR 




A767 

EO 

05 



CPX 

#5 




A769 

BO 

as 



BCS 

CHS30 

; IF >= 5 

CHARS 

THEN NO BLANK 

A76B 

A9 

20 



LDA 

# ' 

i ADD ONE 

BLANK 

TO CLEAR LONGER WORDS 

A76D 

9D 

00 

05 


STA 

TOKBUF, X 




A770 

E8 




INX 





A771 




CHS30 






A77 1 

4C 

4B 

A5 


JMP 

DSPST2 

i DISPLAY 

TOKBUF 

(X CHARS) ON ROWSTT LINE 


A774 

A774 20 BO A1 
_ A777 90 11 

SCLR 

JSR 

BCC 

PCLRO 

SCLSTK 

; CLEAR X, STACK 
; JMP 


A779 

A779 A9 01 
A77B DO 06 

SALG 

LDA 

BNE 

#ALGP 

SRPN10 

i JMP 


A77D 

A77D A9 02 
A77F DQ 02 

SALGN 

LDA 

BNE 

#ALGNOP 

i JMP 


A781 

A781 A9 00 

AZ83 _ 

SRPN 

SRPN10 

LDA 

#0 

; RPN 


A783 85 94 


STA 

RPNALG 



A785 A9 02 


LDA 

#DALG 

; CHANGE STATUS LINE ON SCREEN 


A787 20 5D A7 


JSR 

CHSTAT 



A78A 

SCLSTK 




- — — — — 

A78A A9 01 


LDA 

#1 

; CLEAR STACKS ( LPAD ONLY) 


A78C 85 9C 


STA 

OPPTR 

• 


A78E A9 00 


LDA 

#0 

; X ONLY, NOTHING ON STACK 

— ■"'.!■ 

A790 85 9B 


STA 

FPPTR 



A792 

PSPSIK 





A792 A5 BD 


LDA 

DSPFLG 



A794 DO BC 


BNE 

POPRTN 

; DON'T DISPLAY - RETURN 


A796 20 BB 9F 


JSR 

FPUSHO 

i DISPLAY STACK SAVE X ON STACK 


A799 A9 05 


LDA 

#ROWREG 


" ' ' — 1 ■ — - ■ 

A79B 85 54 


STA 

ROWCRS 



A79D A5 9B 


LDA 

FPPTR 



A79F 38 


SEC 



" ** ' * * — — - 

A7A0 E9 06 


SBC 

#FPREC 



A7A2 

STKD10 






A7A2 85 9E STA TO 

A7A4 AA jax 


A7A5 AO 06 LDY 
A7A7 20 89 DD JSR 
A7AA A9 04 LDA 
A7AC 20 7 B 9D JSR 


ttFPSTK/256 

FLDOR 

#4 ; DISPLAY IN COLUMN 4 

EDSP1 


A7AF E6 54 
A7S 1 A5 54 
A7B3 C9 OF 
A7B5 BO ID 
A7B7 A5 9E 
A7B9 38 


INC 

LDA 

CMP 

BCS 

LDA 

SEC 


ROWCRS 

ROWCRS ___ 

#ROWSCR— 1 

STKD45 ; STACK AT LEAST 10 DEEP 

XQ _ 


COLLFFN CAI nil ATHD nv r cujaii 


COLLEEN CALCULATOR, BY C SHAW 


A7BA E9 06 
A7BC BO E4 
A7BE A5 54 
A7C0 48 
A7C 1 

A7C1 A5 54 
A7C3 CD 65 05 
A7C6 BO OB 
A7C8 A9 03 
A7CA 85 55 
A7CC 20 6E A2 
A7CF E6 54 
A7D1 DO EE 
A7D3 
A7D3 68 
A7D4 

A7D4 8D 65 05 
A7D7 4C 9D 9F 


SBC 

BCS 

LDA 

PHA 

STKD30 

LDA 

CMP 

BCS 

LDA 

STA 

JSR 

INC 

BNE 

STKD40 

PLA 

STKD45 

STA 

JMP 


A7DA A9 00 
A7DC FO 02 
A7DE 

A7DE A9 01 
A7E0 

A7E0 85 9E 
A7E2 A5 D4 
A7E4 10 OA 
A7E6 29 2K_ 
A7E8 85 D4 
A7EA A5 9E 
A7EC 49 01 
A7EE 85 9E 
A7F0 

A7F0 20 D2 D9 
A7F3 08 
A7F4 20 9A 9F 

A7F7 28 

A7F8 BO OA 
A7FA A5 El 


A7FE 

A5 

EO 

A800 

C5 

9D 

A802 

90 

Q3 

A804 



A804 

4C 

BO A1 

A807 



A807 

48 


A808 

20 

E6 9C 

A80B 

68 


A80C 

AA 


A80D 

A4 

9E 

A80F 

DO 

06 

A81 1 

18 


A812 

20 

18 A4 

A81 5 

90 

OB 

A81 7 



A81 7 

46 

BO 


A819 66 B 1 
A81B 66 B2 


SLSHF LDA 
BEQ 

SRSHF 

LDA 

SHFSUB 

STA 

LDA 

BPL 

AND 

STA 

LDA 

EOR 

STA 


SHF05 



JSR 


PHP 


JSR 


PLP 


BCS 


LDA 


BNE 


LDA 


CMP 


BCC 

SHF 10 

JMP 

SHF 15 

PHA 


JSR 


PLA 


TAX 


LDY 


BNE 


CLC 

JSR 

BCC 

SHF20 

LSR 

ROR 

ROR 


#FPREC 

STKD10 

ROWCRS 


ROWCRS 

PRVSTK 

STKD40 

#3 

COLCRS 

BLNK15 

ROWCRS 

STKD30 


PRVSTK 

FPOPO 


#0 

SHFSUB 

#1 

TO 

FRO 

SHF05 

#$7F 

FRO 

TO 

#1 

TO 

FPI 

FMVPOP 

SHF 10 
FR 1 + 1 
SHF 10 
FR1 

BITINT 
SHF 15 

PCLRO 


FPBIN 


TO 

SHF20 

SLSHF2 

BINFP 

BINARY+O 

BINARY+1 

BINARY+2 


i CONTINUE 


i SAVE NEW PRVSTK 

} CLEAR ALL ROWS UP TO PREVIOUS STACK MAX 


i JMP 


; Y LSHF X 
i JMP 

i Y RSHF X 

;Y SHF X (RIGHT OR LEFT) 
i 1=>RIGHT. 0=> LEFT 


> Xn.0. TAKE ABSOLUTE VALUE AND SHIFT IN OPPOSITE DIRECTION 


x£P -> INT 

• FR 1 <- FRO (X), POP Y 

i RELOAD CARRY FROM FPI 

; ERROR => RETURN 0 (VERY LARGE SHIFT) 

i SHIFT > 256 => RETURN 0 (LARGE SHIFT) 

.LOAD LSB OF SHIFT 

; SHIFT > MAX # OF BITS ALLOWED IN #? 
i NO. CONTINUE ‘ 

. YES. SAVE TIME BY NOT DOING SHIFT - CLEAR S< RETURN 

i SAVE 


i RIGHT 
i LEFT 

.SHIFT LEFT 
; JMP 


A BITS WITH CARRY: RETURN ORIGINAL PROCESSOR STATUS 


i RIGHT 


COLLEEN CALCULATOR. BV C SHAN 




AS10 66 B3 


ROR 

B 1 NAR Y + 3 

AfllF CA 


DEX 


A820 DO F3 


BNE 

SHF 20 

A822 

BINFP 



A 822 20 FC 9C 


JSR 

B1NCHH 

A823 A3 BO 


LDA 

B I NAR Y 

A827 

BINFP2 



A827 83 AO 


STA 

NEGFLG 

A829 10 03 


BPL 

B INI 0 

A82B 20 06 A4 


JSR 

S2CMP 

A82E 

BIN10 







A82E A3 BO 


LDA 

BINARY 

A830 83 D3 


STA 

FRO+l 

A832 A3 B 1 


LDA 

BINARY+1 

A834 83 D4 


STA 

FRO 

A836 20 AA D9 


JSR 

IFP 

A839 A 2 30 


LDX 

BC65536 

A83B 20 C3 AD 


JSR 

LDY1ML 

A83E 20 BB 9F 


JSR 

FPUSHO 

A841 AS B2 


LDA 

BINARY +2 

A843 85 D5 


STA 

FRO+1 

A843 A3 B3 


LDA 

BINARY+3 

A847 85 D4 


STA 

FRO 

A849 20 AA D9 


JSR 

IFP 

A84C 20 67 A9 


JSR 

SPADD 

A84F AS AO 


LDA 

NEGFLG 

A851 10 06 


BPL 

BIN20 

A853 A5 D4 


LDA 

FRO 

AQ55 09 80 _ 


DRA 

#♦80 

A857 85 D4 


STA 

FRO 


A859 
AQ59 
A859 60 
A85A 


DIN20 

SHF30 

SSQUAR 


RTS 


i 4 BYTE BINARY TO FP 

i CHECK IF BINARY O BITINT BITS. IF NOT THEN BINARY <- 0 


i TAKE ABSOLUTE VALUE 

i 65S36* I FP ( B 1 NAR Y + 1 . B I NAR Y)4-IFP(B1 NAR Y*3« B 1 NAR Y4-2 ) 


i FRO <- FR0*65536 


i NEGATIVE # 


A85A 20 B6 DD 


JSR 

FMQVE 

; X SQUARED = X*X 

A85D 4C 97 A8 


JMP 

SFMUL 


A860 

A860 20 84 A3 

SSTO 

JSR 

GETMN 

i MEM <-__X 

A863 BO F4 


BCS 

SHF30 

i ERROR => RETURN 

A865 

A865 20 _CQ A3 

SST010 

JSR 

MEMLDR 


A868 20 A7 DD 
A86B A5 BD 


JSR 

LDA 

FSTOR 

DSPFLG 

; DISPLAY INHIBIT? 

A86D DO EA 


BNE 

SHF30 

iYES. NO DISPLAY 

A86F 20 EE A1 


JSR 

FDSCOM 

; YES. NO DISPLAY, 

A872 

A872 A5 A3 

DSPMEM 

LDA 

MEMNUM 

i DISPLAY MEMNUM ON 


A874 

20 

9D 

A8 


JSR 

DSPM3 


A877 

BO 

2D 



BCS 

DM10 

; MEM >= 10 SO DON'T DISPLAY 

AS 7? 

A5 

BD 



LDA 

DSPFLG 


A87B 

DO 

29 



BNE 

DM10 

i RETURN IF NO DISPLAY 

A87D 

A9 

18 



LDA 

#24 

; COLUMN # FOR MEM DISPLAY 

A87F 

85 

55 



STA 

COLORS 


A881 

4C 

80 

9D 


JMP 

FDSP2 

i MEM < 10 SO DISPLAY 

A884 




INTMUL 



i FRO <- A-h-FRO 

A884 

20 

B4 

A1 


JSR 

LDINT 

; FR 1 <- FRO, FROOA 

A887 

90 

OE 



BCC 

SFMUL 

; JMP 

A889 




ZMUL1I 



i IF ANNUITY DUE THEN FROOFRO* < 1 + 1 ) 

A889 

A5 

C5 



LDA 

DUEFLG 
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A889 

AS89 A5 C5 


ZMUL1I 


LDA 


DUEFLG 


i IF ANNUITY DUE THEN FROOFRO* < 1 + 1 ) 


COLLEEN CALCULATOR; BY C SHAW 


A88B 

6A 




ROR 

A 

' — — 


A8SC 

BO 

18 


■ - 

BCS 

ZMRTN 



A88E 

20 

BB 

9F 


JSR 

FPUSHO 



A891 

20 

4E 

A9 


JSR 

Z 1 PL I 



A894 




SPMUL 





A894 

20 

9A 

9F 


JSR 

FMVPOP 

> FR 1 <- FRO ; POP Y OFF STACK INTO FRO 


A897 




SFMUL 



; X <- Y*X FRO <- FRO * FR 1 


A897 

20 

DB 

DA 


JSR 

FMUL 



A89A 

4C 

86 

A9 


JMP 

CRYCHK 



A89D 




DSPM3 



i SET UP TO DISPLAY MEM REG A 



A89D 

C9 

OA 



CMP 

#10 



A89F 

BO 

05 



BCS 

DM10 

i ONLY DISPLAY 0-9 


A8A1 

18 




CLC 


i ROW = MEMNUM+4 


A8A2 

69 

05 



ADC 

#ROWREG 



A8A4 

85 

54 



STA 

ROWCRS 



A8A6 




SXRTN 





A8A6 




ZMRTN 





- A8A6 




DM10 

— 





RTS 


A8A7 


SSUM 


A8A7 20 DO A3 „ 


JSR 

MEMSUB 

A8AA 20 6A A9 


JSR 

SFADD 

A8AD 20 65 A8 


JSR 

SST010 

AS BO 4C 9D 9F 


JMP 

FPOPO 

A8B3 

SXCHM 



A8B3 20 DO A3 


JSR 

MEMSUB 

A8B6 2Q £0 A3 


JSR 

MEMLDR 

A8B9 20 60 9F 


JSR 

FST1R 

A8BC 20 E8 9F 


JSR 

SXCHGY 

A8BF 20 86 9D 


JSR 

TOKNUM 

A8C2 20 72 A8 


JSR 

DSPMEM 

A8C5 4C 9D 9F 


JMP 

FPOPO 

A8C8 . 

SAND 



A8C8 A9 00 


LDA 

#0 

A8CA FO 06 


BEQ 

DOLOP 

A8CC A9 01 

SOR 

LDA 

#1 

A8CE DO 02 


BNE 

DOLOP 

A8D0 

SXDR 



A8D0 A9 02 


LDA 

#2 

A8D2 

DOLOP 



A8D2 85 9E 


STA 

TO 

A8D4 20 E6 9C 


JSR 

FPBIN 

A8D7 A2 03 


LDX 

#3 

A8D9 

L0PLP1 



A8D9 B5 BO 


LDA 

BINARY; X 

A8DB 95 B4 


STA 

BIN2- X 

A8DD CA 


DEX 


A8DE 10 F9 


BPL 

L0PLP1 

A8E0 20 9D 9F 


JSR 

FPOPO 

A8E3 20 E6 9C 


JSR 

FPBIN 

A8E6 A4 9E 


LDY 

TO 

A8E8 A2 03 


LDX 

#3 

A8EA 

L0PLP2 



A8EA B5 BO 


LDA 

BINARY; X 

A8EC CO 00 


CPY 

#0 


i MEM <- MEM+X 


RELOAD X VALUE 


; X <==> MEM 
; MEM O X 


(MEMSUB PUSHES FRO) 


i EXCHANGE NEW X FOR OLD ON STACK 
; DISPLAY IN MEM AREA IN DSPFLG CLEAR 


Jj X AND Y 

JMP 

Y OR X 

JMP 

X Y XOR X 
i X <- Y LOP X 


OOAND; 1=>0R, 2=>X0R 


COLLEEN CALCULATOR. BV C SHAW 


* 

1 + 




A8EE 

A8F0 

A8F2 

A8F5 

A8F5 

ASF 7 

A8F9 

A8FB 

A8FE 

A8FE 

A900 

A900 

A902 

A903 

A905 

A908 


DO 05 
35 B4 

4C 00 A9 

CO 01 
DO 05 
15 B4 
4C 00 A9 

55 B4 

95 BO 
CA 

10 E5 
4C 22 A8 


A908 A5 95 
A90A DO OB 
A9QC 20 37— AZ 
A90F BO 95 
A91 1 20 17 A9 
A914 4C 2E A7 
A91 7 


A917 20 78 A5 
A91 A 48 
A91B 20 57 9D 
A91E 4C 59 A5 


LOP 10 


L0P20 
LOP 30 


SPRINT 


SXR10 


BNE 

AND 

JMP 

CPY 

BNE 

ORA 

JMP 

EOR 

STA 

DEX 

BPL 

JMP 


LDA 

BNE 

JSR 

BCS 

JSR 

JMP 


JSR 
PHA 
JSR 
JMP 


LOP 10 
B1N2. X 
L0P30 

• 1 

L0P20 
BIN2. X 
LOP 30 

BIN2, X 

BINARY. X 

LQPLP2 

BINFP 


PRNFLG 

SXR10 

SON 

SXRTN 

SXR10 

SOFF 


DSPCLR 

FDSPO 

DSPLOD 


PRINT X REG 
; PRINTER ON? 

; YES. 

■, NO. TURN ON 
i ERROR 

j DISPLAY & PRINT 
i TURN OFF & RETURN 

DISPLAY & PRINT ^RETURN 
i CLEAR DSPFLG 
i AND SAVE OLD VALUE. 

; PRINT NUMBER 
j RESTORE DSPFLG 




— 















COLLEEN CALCULATOR. BY C SHAW 
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A921 

AOO 1 


HR 

ah 

Z1IMN 

JSR 

Z 1 IN 

M7cl 

A924 


JLyJD 

— ntr — — 

SRECIP 



A924 

A9 

01 



LDA 

#1 


20 

B4 

At 


JSR 

LDI NT 

rt7 C.U 

A929 

Cm W 

90 

OF 



BCC 

SFDIV 


; ( 1 + 1 ) N = 1 / ( ( 1 + 1 ) X 'N) 


; COMPUTE A/FRO 
; JMP 


A92B 

A92B 20 BB 9F 
A92E 20 6 A BO 
A931 20 ES 9F 
A934 20 76 B2 

A937 

A937 20 9A 9F 
A93A 

A93A 20 28 DB 
A93D 4C 86 A9 
A940 

A940 A9 -5A 

A942 20 FO 9B 
A945 A2 3C 
A947 20 C3 AD 
A94A A9 20 
A94C DO 05 

A94E 

A94E 20 9E A3 
A951 

A951 A9 m 

A953 

A953 20 B4 A1 
A956 90 12 


STAN 

JSR FPUSHO 

JSR SSIN- — 

JSR SXCHGY 

JSR SCOS 

SPD I V 

JSR FMVPOP 

SFDIV 

JSR FDIV 

JMP CRYCHK 

SC 

LDA #CELMSG 

JSR PUTMSG 

LDX #C1PT8 

JSR LDY1ML 

LDA #32 

BNE INTADD 

ZlPi-I 

JSR LDI 

ONEADD 

LDA #1 

INTADD 

JSR LDI NT 

nrc • SFADD 


; TAN ( X ) = SIN < X ) /COS ( X ) 


; X O Y/X 


; DISPLAY » -^-FAHRENHEIT" 

i CELSIUS -> FAHRENHEIT F=(9/5)*C+32 
i FRO O FR0*1. 8 

i JMP 

i COMPUTE (1+1) 

; FRO. FRO+1 

; COMPUTE A+FRO 
i JMP 


A958 

A958 J20l_BBJ2E 
A95B 20 3A BO 
A95E 20 94 A8 
A961 2 0 BB 9 F 
A964 20 1C BO 
A967 

A967 209A9E 
A96A 

A96A 20 66 DA 
A96B 4C 86 A 9, 
A970 

A970 20 21 A9 

A973_A9_QJ 

A975 

A975 20 B4 A1 

A978 90Q9 

A97A 

A97A 20 BB 9F 
A9XD 20 7D A6- 
A980 

A980 20 9A 9F 

A983 

A983 20 60 DA 

A986 


SY 

JSR 

JSR 

JSR 

JSR 

JSR 

SPADD 

JSR 

SFADD 

JSR 

JMP 

Z11IMN 

JSR 

ONESUB LDA 
INTSUB 

JSR 

BOS 

SFRACT 

JSR 


SPSUB 

JSR 

SFSUB 

JSR 

CRYCHK 

BCC 


FPUSHO 

SSLOPE 

SPMUL 

FPUSHO 

SYINTE 

FMVPOP 

FADD 

CRYCHK 

Z1IMN 

#1 

LDI NT 
SFSUB 


FPUSHO 

STRUNC 


i Y <- M*X + B 

iSAVE X 

; M 


iB = Y-INTERCEPT 





; l-( 1 + 1 )'--H 

iJ=JlO 0“ 1-FJRO 

; COMPUTE A-FRO 

i JMP — 

; FRO <- FRACTIONAL PART OF FRO 

j FRO-TRUNC ( FRO ) 



FMVPOP 


FSUB 


i X <- Y-X 

i IF CARRY SET THEN "ARITHMETIC OVERFLOW" ERROR 

; RETURN IF CARRY CLEAR 


A986 90 43 
A988 


CRYSND 


SBST50 






COLLEEN CALCULATOR/ BY C SHAW 



A988 20 BO A1 J SR PCLRO ; CLEAR X 

A 9BB A9 A9 LDA ... #CRYMSG ; CARRY SET => ERROR 

A98D 4C B7 9B JMP ERRSUB 







— 
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A990 

SBSTEP 



A990 A5 B9 

LDA 

PC 


A992 38 

SEC 



A993 E9 01 

SBC 

#1 


A995 JBQ OC 

BCS 

SBST10 


A997 A6 BA 

LDX 

PC+1 


A999 CA 

DEX 



A99A E4 D1 

CPX 

PRGADR+l 


A99C BO 03 

BCS 

SBST05 


A99E 4C 60 9C 

JMP 

EPERR 


A9A1 

SBST05 



A9A1 86 BA 

STX 

PC + 1 


A9A3 

SBST10 



A9A3 85 B9 

STA 

PC 


A9A5 AO 00 

LDY 

#0 


A9A7 B 1 B9 

LDA 

(PC), Y 


A9A9 C9 8E 

CMP 

#NUMBER 


A9AB DO IE 

BNE 

SBST50 


A9AD A5 B9 

LDA 

PC 


A9AF A6 BA 

LDX 

PC+1 


A9B 1 38 

SEC 



A9B2 E9 07 

SBC 

#FPREC+1 


A9B4 BO 05 

BCS 

SBST30 


A9B6 CA 

DEX 



A9B7 E4 D1 

CPX 

PRGADR+l 


A9B9 90 09 

BCC 

NERR 


A9BB 

SBST30 



A9BB 48 

PHA 



A9BC B 1 B9 

LDA 

(PC), Y 


A9BE A8 

TAY 



A9BF 68 

PLA 



A9C0 CO 8E 

CPY 

#NUMBER 


A9C2 FO 03 

BEG 

SBST40 


A9C4 

NERR 



A9C4 4C B5 9B 

JMP 

KEYERR 


A9C7 

SBST40 



A9C7 86 BA 

STX 

PC + 1 


A9C9 85 B9 

STA 

PC 


A9CB 

SBST50 



A9CB 60 

RTS 



A9CC 

SSSTEP 



A9CC A 5 BE 

i 

LDA 

PROG 


A9CE C9 01 

CMP 

#STQPRG 


A9D0 FO 07 

BEG 

SSTP10 


A9D2 A9 .02 

LDA 

#EXEC 


A9D4 85 BE 

STA 

SSTFLG 


A9D6 85 BB 

STA 

PROG 


A9D8 60 

RTS 



A9D9 

SSTP10 



A9D9 AO 00 

LDY 

#0 


A9DE El E9 ... . 

LDA 

(PC), Y 


A9DD C9 8E 

CMP 

#NUMBER 


A9DF DO 11 

BNE 

SSTP20 


A9E1 AO 07 _ _ 

LDY 

#FPREC+1 


A9E3 B 1 B9 

LDA 

(PC), Y 


A9E5 C9 8E 

CMP 

#NUMBER 


i BACK STEP 


SUBROUTINES FOR 


PC <- PC-1 


i AT BEGINNING OF PRGMEM? 

; YES. END OF PROGRAM MEM ERROR MSG AND RETURN 


; CHECK FOR NUMBER 
; RETURN 

; NUMBER => SUBTRACT MORE 


i NOW AT BEGINNING OF PRGMEM? 
i SAVE NEW PC 

I DOUBLE CHECK FOR # AT BEGINNING 
i RESTORE NEW PC 
i OK 

;SAVE NEW PC 


i SINGLE STEP: IF IN STORE PROG MODE, THEN INC PC 

; IF IN IMMEDIATE MODE, EXECUTE 1 INSTRUCTION 


; IMMEDIATE -> EXECUTE MODE 




; CHECK FOR NUMBER 


COLLEEN CALCULATOR. BV C SHAW 


A9E7 FO 06 
A9E9 20 99 A1 
A9EC 4C B5 9B 
A9EF 

A9EF 4C 90 AX 
A9F2 

A9F2 4C 99 A1 


A9F5 

A9F5 

A9F7 

A9F9 

A9FB 

A9FD 

A9FF 

AA01 


A9 00 

83 B9 
A9 6E 
A4 D 1 

84 BA 
A6 03 
DO 06 


AA03 

AA03 A4 CF 
A AO 5 A6 01 
AA07 

AA07 A9 00 
AA09 48 
AAOA 84 8D 
AAOC 86 9E 
A9 00 


AA 1 0 85 8C 
AA12 A8 
AA13 68 
AA 1 4 

AA 1 4 91 8C 
AA16 C8 


AA1 7 DO FB 
AA 1 9 E6 8D 
AA1B A6 8D 


AA1D E4 9E 
AA1F DO F3 
AA21 60 


SSTP15 

SSTP20 

SCLPRO 


MEMCLR 


RAMCLR 

RAMSET 


LDY 

LDX 


INIT3 


STA 

INY 


BNE 

INC 

LDX 


CPX 

BNE 

RTS 


SSTP15 
PC INC 
KEYERR 

PCADDN 

PC INC 


#0 

PC 

#STP 

PRGADR+ 1 
PC + 1 
PC1MX1 
RAMSET 


memadr+i 

PRGADR+1 

#0 

CLRPTR+1 

TO 

#0 

CLRPTR 


i CLEAR PROGRAM MEMORY. PC O PRGMEM 


i OPCODE FOR STOP => INIT ALL TO STOP 


i JMP 

i CLEAR MEMORY REGISTERS 
i START ADDR MSB 
; END ADDR MSB 
i SET PAGES Y TO X-l TO O 

i SET PAGES Y TO X-l TO A 

; MEM UPPER LIMIT 


(CLRPTR). Y 


INIT3 

CLRPTR+1 

CLRPTR+1 


TO 

INIT3 


; RETURN A= MEM CONTENTS 


AA22 


AA22 20 BB 9F 
AA25 

AA25 20 5A 9C 


AA28 BO IE 
AA2A 20 9D A2 
AA2D AD FO 02 
AA30 FO 13 
AA32 A5 81 
AA34 C9 8E 


AA36 DO 06 
AA38 20 9D A1 
AA3B 4C 41 AA 


AA3E 

AA3E 20 99 A1 
AA41 


AA41 90 E2 


_ SL 1ST 


SLSTLP 


JSR 

JSR 

BCS 

JSR 

LDA 


BEQ 

LDA 

CMP 


BNE 

JSR 

JMP 


SLST05 


JSR 


BCC 


FPUSHO 


SLST10 

PUTCRP 

CRSINH 


BRKLST 

TOKCOD 

#NUMBER 

SLST05 

PCADDN 

SLSTOZ 


PCINC 


SLSTLP 


; LIST PROGRAM STARTING WITH PC 


iSAVE X 


i CURSOR ON => BREAK HIT 


; BREAK 
j NO BREAK 


; OK: CONTINUE 


• COLLEEN CALCULATOR. BY C SHAW 


AA3E 20 9 V A 1 
AA41 

AA41 90 E2 


SLST07 




r ^ i r«v. 


BCC SLSTLP 
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AA43 

AA45 

BO 

03 


BRKLST 

BCS 

SLST10 

AA45 

EE 

FO 

02 


INC 

CRSINH 

AA48 

AA48 

4C 

9D 

9F 

SLST10 

JMP 

FPOPO 


AA4B SPAUSE 


AA4B 

AA4E 

20 

48 

78 

A5 

JSR 

PHA 

DSPCLR 

AA4F 

20 

E8 

A 1 

JSR 

DSOME 

AA52 

A2 

00 


LDX 

#0 


AA54 AO IE LDY #30 

AASA A9 03 LDA #3 


AA58 

8D 

2A 

02 

STA 

CDTMF3 

AA5B 

AA5E 

20 

5C 

E4 

JSR 

SPAULP 

SETVBV 

AA5E 

AD 

2A 

02 

LDA 

CDTMF3 

AAAI 

DO 

FB 


BNE 

SPAULP 


AAA3 4C 59 A5 JMP DSPLOD 


AAAA 

SPROGR 



AAAA A9 01 


LDA 

#STOPRG 

AAA8 C5 BB 


CMP 

PROG 

AAAA FO 2A 


BEQ 

SNOP 

AAAC 85 BB 


STA 

PROG 

AAAE A9 OA 


LDA 

#10 

AA70 85 9E 


STA 

TO 

AA72 A9 01 


LDA 

#LMARG 

AA74 85 55 


STA 

COLCRS 

AA7A A9 02 


LDA 

#2 

AA78 85 54 


STA 

ROWCRS 

AA7A A9 9C 

SPROL.P 

LDA 

#DELLIN 

AA7C 20 31 A2 


JSR 

PTCHR 

AA7F CA 9E 


DEC 

TO 

AA81 10 F7 


BPL 

SPROLP 

AA83 A2 5C 


LDX 

#FP X 

AA85 AO 05 


LDY 

#FPX/256 

AA87 4C A7 DD 


JMP 

FSTOR 

AA8A 

SRESET 



AA8A A9 00 


LDA 

#0 

AA8C 85 B9 


STA 

PC 

AA8E AA D1 


LDX 

PRGADR+1 

AA90 86 BA 


STX 

PC + 1 


AA92 

SNOP 


AA92 60 


RTS 


AA93 SSTP 


AA93 

AA93 

A9 

00 

SEND 

LDA 

#0 

AA95 

85 

BD 

STA 

DSPFLG 

AA97 

A6 

BB 

LDX 

PROG 


i OK: CONTINUE 


i END OF PROG MEM: STOP 

i TURN CURSOR OFF 
; RESTORE X 


; DISPLAY REGS Z< STACK 

PAUSE FOR 30 FRAMES (1/2 SEC) 

i MSB 

i LSB < IN FRAMES) 


i SET FLAG TO NON-ZERO 
> SET TIMER 


; WAIT FOR ZERO (TIME UP) 
i RESTORE DSPFLG 
; TO STORE PROGRAM MODE 


i ALREADY IN MODE? 
i YES. RETURN 
; NO. 

; CLEAR LINES 


; SAVE X REG 


;PC <- 0 


;STOP PROGRAM EXECUTION 

; END OF PROGRAM (STOP PROGRAM EXECUTION) 


; DISPLAY ON 
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AA99 85 BB 
AA9B EO 01 
AA9D DO 5F 
AA9F A2 5 C 
AAAI AQ 05 
AAA3 20 89 DD 
AAA6 


AAA8 86 54 
AAAA CA 


DSP ALL 


AAAD CA 
AAAE 20 49 A2 


PROG 

#STOPRG 

DSCAL2 

#FPX 

#FPX/256 

FLDOR 

#2 

ROWCRS 

COLORS 

PTLIN1 


AAB1 A9 FI 


LDA 


#STKLIN 


— flftOJ — tfu 7u 

AAB6 20 74 A2 

jon 

JSR 

CO I 11 COLT CL 

PUTCHS 

AAB9 A2 03 

LDX 

#3 

AABB 20 49 A2 

JSR 

PTLIN1 

AABE A2 00 

LDX 

#0 

AACO 

PTLP 


AACO 86 9E 

STX 

TO 

AAC2 A9 7C 

LDA 

#' 1 

AAC4 20 31 A2 

JSR 

PTCHR 

AAC7 A6 9E 

LDX 

TO 

AAC9 BD FD BA 

LDA 

CHTAB2, X 

AACC 20 31 A2 

JSR 

PTCHR 

AACF 20 6E A2 

JSR 

BLNK15 

AAD2 A9 7C 

LDA 

#' J 

AAD4 20 31 A2 

JSR 

PTCHR 

AAD7 A 5 9E 

LDA 

TO 

AAD9 IS 

CLC 



AADA 

69 

30 

ADC 

#'0 

AADC 

20 

31 A2 

JSR 

PTCHR 

AADF 

A2 

12 

. LDX 

#18 


AAE1 20 70 A2 
AAE4 A9 7C 

AAE9 A6 9E 
AAEB ES 
AAEC EQ OA 


JSR 

LDA 

JSR 

LDX 

INX 

CPX 


AAEE DO DO 


BNE 


BLNKS 
#' .' 
PTCHR 
TO 

#10 

PTLP 


AAFO E6 53 
AAF2 A2 06 
_ AAF4 20 49 A2 


INC 

LDX 

JSR 

RMARGN 

#6 

PTLIN1 

AAF7 20 OB A2 


JSR 

PUTCR 

AAFA C6 53 


DEC 

RMARGN 

A AFC DO 05 


BNE 

DSCAL 

AAFE 

DSCAL2 



AAFE A9 40 


LDA 

#$40 

ABOO 20 3A 9C 


JSR 

SOUND 

AB03 

DSCAL 



AB03 4C E8 A1 


JMP 

DSOME 


COLLEEN CALCULATOR, BY C SHAW 


BACK TO IMMEDIATE MODE 
LEAVING STORE PROGRAM MODE? 
NO. 

YES. RELOAD FRO (X) 


i LMARG=1 

i 0 

; LINE 2 


i LINE 3 "! STACK ! REG . . . 

i SET UP MESSAGE IN TOKBUF 


; LINE 4 


; LINES 5-14 iLLX 10 QJ^ 


i X , Y, 2, 3, 4. 


; '0 - '9 


; WIDEN MARGINS SO LOGICAL LINES COME OUT RIGHT 
; LINE 15 


CR TO INDICATE END OF LOGICAL LINE 

MARGINS BACK TO NORMAL 

JMP 

; ??? 

; STOP PROGRAM SOUND 


i DISPLAY STACK, MEM, & X 


COLLEEN CALCULATOR. BY C SHAW 



AB06 

XLTSUB 



• XLT R N => IF X < MEM ( R ) THEN GOTO N 

9 


$ 



SUBROUTINE FOR CONDITIONAL BRANCH INSTRUCTIONS 


AB06 20 DO A3 


JSR 

MEMSUB 

i WILL RETURN FROM XLTSUB IF ERROR. OTHERWISE 


AB09 20 83 A9 


JSR 

SFSUB 

; FRO <- MEM ( R ) - X 

0 

ABOC A5 D4 


LDA 

FRO 

i LOAD & SAVE SIGN BYTE 


ABOE 48 


PHA 




ABOF 20 9D 9F 


JSR 

FPOPO 

; RELOAD X 

0 

AB 12 68 


PLA 




AB13 18 


CLC 


iNO ERROR 


AB 1 4 

XLTERR 




0 

AB 1 4 60 


RTS 




AB15 

SXEQ 

- 


i IF X=MEM ( R ) THEN GOTO N 


AB 1 5 20 06 AB 


JSR 

XLTSUB 


P 

AB 18 BO FA 


BCS 

XLTERR 

; ERROR 


AB 1 A FO 24 

— 

BEQ 

— MATCH 



ABIC 

NOMAT 



; CONDITION NOT SATISFIED 

9 

ABIC 20 54 AB 


JSR 

SG01 

; CALL LEX AND CHECK FOR # IN RANGE 


AB IF BO F3 


BCS 

XLTERR 

i ERROR => RETURN 


AB21 90 2C 


BCC 

SG02 

i NO ERROR => RESTORE X & DHOFLG & RETURN 


AB23 

SXGE 



i IF X>= MEM ( R ) THEN GOTO N 

■ ■...!■ ■■ 

AB23 20 06 AB 


__JSR 

XLTSUB 



AB26 BO EC 


BCS 

XLTERR 




AB28 FO 16 


BEQ 

MATCH 




AB2A 30 14 


BMI 

MATCH 

j MI => MEM ( R ) < X => X>MEM ( R ) 


AB2C 10 EE 


BPL 

NOMAT 


1 

AB2E 

SXLT 



i IF XCMEM(R) THEN GOTO N 


AB2E 20. 06 AB 


JSR 

XLTSUB 



AB31 BO El 


BCS 

XLTERR 

' ' ■ ■ ■ .... i — — — 


AB33 FO E7 


BEQ 

NOMAT 



AB35 10 09 


BPL 

MATCH 

i PL => MEM1R ) >=X => X<~MEM ( R ) 


AB37 30 E3 


BMI 

NOMAT 



AB39 

SXNE 



i IF XOMEM(R) THEN GOTO N 


AB39 20 06 AB 

- 

JSR 

XLTSUB 



AB3C BO D6 


BCS 

XLTERR 



AB3E FO DC 


BEQ 

NOMAT 


__________ 

AB40 

MATCH 





AB40 

SGOTO 



; GOTO N = 0-1023 ( 000-3FF) 


AB40 20 54 AB 


JSR 

SG01 

i CALL LEX & CHECK FOR NUMBER IN RANGE 


AB43 BO CF 


BCS 

XLTERR 

i ERROR => RETURN 


AB45 A6 D4 


LDX 

FRO 



AB47 86 B9 


STX 

PC 



AB49 A5 D5 _ 


LDA 

FRO+1 



AB4B 65 D1 


ADC 

PRGADR+1 

■- — — - ■■ - 


AB4D 85 BA 


STA 

PC + 1 



AB4F 

SGD2 



i ENTRY POINT 


AB4F 20 9D 9F 


JSR 

FPOPO 

; RELOAD X 


AB52 18 


CLC 


; NO ERROR 


AB53 60 

i... 

RTS 

■ — 



AB54 

AB54 20 BB 9F 
AB57 A9 00 
AB59 20 KO_9B_ 
AB5C A5 87 
AB5E 48 
AB5F A9 00 




AB61 85 87 


JSR 

LDA 

JSR 

FPUSHO 

#PROMSG 

PUTMSG 

; SAVE X 

; DISPLAY "ENTER PROGRAM MEM ADDRESS 0-1023" 

LDA 

PHA 

DHOFLG 

; ALWAYS DECIMAL 

LDA 

#0 


STA 

DHOFLG 





COLLEEN CALCULATOR, BV C SHAW 


AB63 20 51 9A 

JSR 

LEX 

AB66 AS 81 

LDA 

TOKCOD 

AB68 C9 8E 

CMP 

♦♦NUMBER 

AB6A DO OF 

BNE 

SGOERR 

AB6C 20 D2 D9 

JSR 

FPI 

AB6F BO OA 

BCS 

SGOERR 

AB71 A5 D5 

LDA 

FRO+1 

AB 73 C9 04 

CMP 

#4 

AB75 BO 04 

BCS 

SGOERR 

AB77 68 

PLA 


AB78 85 87 

STA 

DHOFLG 

AB7A 60 

RTS 

Iwl L_ \> 


I TOO LARGE 
; RESTORE DHQFLG 


AB 7B SGOERR 

AB7B 68 PLA 

AB7C 85 87 STA DHOFL.G 

AB7E 20 9D 9F JSR FPOPO 

AB81 4C 95 A3 JMP B I TERR 


; RELOAD X 








COLLEEN CALCULATOR, By r SHAW 





COLLEEN CALCULATOR/ BY C SHAW 


SUBROUTINE CALL & RETURN 


AB84 

A2 

00 


SCLCAL 

LDX 

#0 

AB86 

FO 

14 



BEQ 

PSHC20 

AB88 

20 

D6 

AB 

SPOPC 

JSR 

POPCAL 

AB8B 

90 

49 



BCC 

POPCAL 

AB8D 

60 




RTS 


AB8E 

AB8E 

18 



PSHCAL 

CLC 


AB8F 

A6 

C9 



LDX 

CALPTR 

AB91 

10 

05 



BPL 

PSHC10 

AB93 

A9 

CA 



LDA 

#CLFMSG 

AB95 

4C 

B7 

9B 

ERRCAL 

JMP 

ERRSUB 

AS98 

AB98 

9D 

80 

04 

PSHC10 

STA 

CALSTK/ X 

AB9B 

E8 




INX 


AB9C 

AB9C 

86 

C9 


PSHC20 

STX 

CALPTR 


AB9E 60 RTS 


AB9F 

AB9F 

A6 

BB 


SCALL 

LDX 

PROG 

ABA1 

DO 

16 



BNE 

SCAL10 

ABA3 

A5 

BA 



LDA 

PC+1 

ABA5 

09 

80 



ORA 

#$80 

ABA7 

20 

8E 

AB 


JSR 

PSHCAL 

ABAA 

A5 

B9 



LDA 

PC 

ABAC 

2Q 

8E 

AB 


JSR 

PSHCAL 

ABAF 

BO 

4C 



BCS 

SRET20 

ABB 1 

20 

40 

AB 


JSR 

SGOTO 

ABB4 

BO 

ID 



BCS 

SCAL30 

ABB6 

ABB9 

4C 

FO 

BC 

SCAL10 

JMP 

SCONTI 

ABB9 

A5 

B9 



LDA 

PC 

ABBB 

A6 

BA 



LDX 

PC + 1 

ABBD 

18 




CLC 


ABBE 

69 

O 

CO 



ADC 

#FPREC+2 

ABCO 

90 

01 



BCC 

SCAL20 

ABC2 

ARCS 

E8 



SCAL20 

INX 


ABC3 

48 




PHA 


ABC4 

8A 




TXA 







JSR 

PSHCAL 

ABC8 

68 




PLA 


ABC9 

20 

8E 

AB 


JSR 

PSHCAL 

ABCC 

BO 

?F 



BCS 

SRET20 

ABCE 

20 

40 

AB 


JSR 

SGOTO 

ABD1 

ABD3 

90 

2A 


SCAL3G 

BCC 

SRET20 

ABD3 

20 

D6 

A3 


JSR 

POPCAL 


ABD6 
ABD6 18 

POPCAL 

CLC 


ABD7 A6 C9 


LDX 

CALPTR 

ABD9 DO 04 


BNE 

P0PC10 

ABDB A9 XQ. 


LDA 

#CLEMSG 

ABDD DO B6 


BNE 

ERRCAL 

A BDF 

P0PC10 




CLEAR CALL STACK 
JMP 

POP CALL STACK (TWO POPS) 


i SAVE A ON CALSTK 
i NO ERROR 

; 0-$7F IS OK 

; "CALL STACK FULL" ERROR 


CALL N (0-1023) 

IM M EDIATE M ODE ? 

NO. 

YES. PC TO BE RESTORED ON RETURN 

SET MSB IT TO INDICATE RETURN TO IMMEDIATE MODE 


; STACK FULL ERROR 
; GOTO N 

; RUN SUBROUTINE (CONTINUE) 


; EXEC MODE 

; SKIP PAST N 

j TO GET RETURN ADDRESS. 


i PC+i _JL 

; PC 

i STACK FULL ERROR => DON'T GO 


; ERROR => THROW AWAY RETURN ADDR FROM STACK 

CALL POPCAL A 2ND TIME 


; POP A OFF CALSTK 
j. NO ERROR 


; JMP "CALL STACK EMPTY" ERROR 


I'W U\n 


COLLEEN CALCULATOR. BY C SHAW 


ABDF CA 
ABEO 86 C9 
ABE2 BD 80 04 
ABE5 60 


CALPTR 
CALSTK. X 




ABE6 

ABE6 20 D6 AB 
ABE9 BO 12 
ABEB 85 B9 
A3ED 20 D6 AB 
ABFO BO OB 
ABF2 10 07 
ABF4 29 7F 
ABF6 85 BA 


SRETUR 


POPCAL 

SRET20 

PC 

POPCAL 
SRET20 
SRET10 
#*7F 
PC + 1 


i RETURN => POP PC OFF STACK. GOTO PC 

. p£ 

\ ERROR - STACK EMPTY 


; PC + 1 

i STACK EMPTY => DON'T EXECUTE RETURN 


} PC+1 (MSB) <0 => RETURN TO IMMEDIATE MODE 


ABF8 4C 93 AA 
ABFB 

ABFB 85 BA 
ABFD 
ABFD 60 


SRET10 

SRET20 


; PC+1 >0 => STAY IN EXEC MODE 





■ 1 
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COLLEEN CALCULATOR# 

BY C SHAW 



1 


% 

i 


INSERT & DELETE 

ABFE 

SDELET 

i 

ICO 

ncmki n 

; DELETE - FOR I=PC TO 1022+PRGMEM: MEM ( I ) C-MEM ( 1+ 1 > : NEXT I 
MEM ( 1 023+PRGMEM ) C-STP 

ABFE 20 61 A1 
AC 01 BO OD 
AC 03 DO OB 


Jjn 

BCS 

BNE 

nUnALy 

SDEL2 

SDEL2 

ttCDDCr 

i NO. ERROR DELETE 1 BYTE 

,N0. DELETE 1 BYTE 

i YES DELETE 8 BYTES FOR NUMBER 

_ AC05 A 9 06 
AC 07 85 9E 
AC 09 

SDELP2 

LDA 

STA 

ICD 

fr rrlCL 

TO 

cncri o 


AC09 20 10 AC 
ACOC C6 9E 
ACOE 10 F9 


Jbn 

DEC 

BPL 

TO 

SDELP2 

i 7 TIMES 

bth CAi 1 — 

AC 10 

i — 

SDEL2 

i n a 


; DELETE 1 BYTE FROM PRGMEM 

; MflUF PC TO TEMP PTR 

AGIO A5 B9 
AC 12 85 90 
AC 1 4 A5 BA 


LDA 

STA 

LDA 

CTA 

rU — 

JMPTR 1 
PC+1 

. JMPTR 1+1 


AC 16 85 91 

AC 18 AO 01 
AC 1 A B 1 90 

SDELP 1 

D I n- 

LDY 

LDA 

ncv 

#1 

( JMPTR 1 ), Y 

; MEM( 1+1 ) 

AC 1 C Bo 

ACID 91 90 
AC IF E6 90 


L/C, T 

STA 

INC 

Sjur 

( JMPTR 1 ), Y 
JMPTR 1 
pnn p i 

; MEM ( I ) 

= CONTINUE — — — — 

AC21 DO rD 

AC23 E6 91 
AC25 A5 91 


-u IxC. 

INC 

LDA 

TMP 

JMPTR 1+1 
JMPTR 1+1 
PCI MX 1 

i AT END OF MEM? — * « — — — — 

m#e / L3 JJJ 

AC29 DO ED 


BNE 

SDELP 1 

# NO. CONTINUE 

Arno AO JL c 


LDA 

#STP 

i DONE STORE "STOP" AT END OF PRGMEM 

AC till — fl-J- — i #ii i 

AC 2D C6 91 
a roc An cc 

f 

DEC 

LDY 

JMPTR 1+1 
#$FF 

JMPTR 1 = 0 
i PC1MAX 

nu&i JrWJL — r r 

AC31 91 90 
AC 33 60 


STA 

RTS 

(JMPTR 1 ) # Y 


AC34 

SINSER 


; INSERT - FOR 
MFM ( PC ) C— STP 

1=1 022+PRGMEM TO PC: MEM< 1+1 ><-MEM< I ) : NEXT I 

AC34 A9 FE 
AC36 85 90 
Anp a ^ no 


LDA 

STA 

LDA 

#$FE 
JMPTR 1 
PC1MAX 

JMPTR 1<-ADDR< END OF PRGMEM-1 ) 

AC 3 A 85 91 
AC3C 

Anr ao nn 

SINSLP 

STA 

LDY 

JMPTR 1+1 
#0 


AC3E B 1 90 
AC40 C8 

AC 41 9JL 90 


LDA 
I NY 
STA 

( JMPTR 1 )» Y 
( JMPTR 1 )/ Y 

# MEM ( I ) 

i MEM ( I + 1 ) — 


AC43 C6 90 
AC45 A6 90 
AC47_EQ-EE_ 


AC49 DO 02 
AC4B C6 91 
AC4D 


AC4D A4 91 
AC4F C4 BA 
AC 51 90 06 


AC 53 DO E7 
AC 55 E4 B9 





JMPTR1 
JMPTR 1 


BNE 

DEC 


INS10 
JMPTR 1+1 


JNSiQ- 


JMPTR1+1 
PC + 1 
INS30 
SINSLP 
PC 



i JMPTRi-CPC =I 
» JMPTR 1>PC => CONTINUE 

i JMPTR 1+1 = PC+1 









iJMPTRl >= PC => CONTINUE 
; DONE MEM < PC) <- STP 












COLLEEN CALCULATOR. BY C SHAW 


SAVE & LOAD 


AC60 48 
AC61 A9 
AC 63 20 
AC66 
AC66 20 
AC 6 9 20 
AC6C C9 
AC6E FO 
AC 70 C9 
AC 72 FO 
AC 74 
AC 74 E6 


3B 

F O 9 B 

3C 9A 
26 _AQ_ 
20 
F6 

9C 

F2 


FOPEN 


F0PLP1 


F0P20 


AC76 20 
AC79 C9 
AC ZB FO 


82 

26 AO 
20 

lO 


PHA 

LDA 

JSR 

JSR 

JSR 

CMP 

BEQ 

CMP 

BEQ 

INC 


#FSPMSG 

PUTMSG 


LX INI T 
GTCHR 
#' 

F0PLP1 

#DELLIN 

F0PLP1 

TQKPTR 


JSR 

CMP 

BEQ 


GTCHR 

#' 

FDP30 


AC7D C9 
AC7F FO 
AC81 A6 
AC83 EO 
AC85 90 
AC87 68 
AC88 A9 
AC8A 4C 

AC8D 

AC8D EE 
AC90 20 
AC 93 A9 
AC95 A6 
AC97 9D 
AC9A A2 
AC9C 68 
AC9D 9D 
ACAO AO 
ACA2 
ACA2 20 
AC A 5 DO 
ACA7 18 
ACA8 60 


9C 

E5 

02 


OE 

ED 


9D 

B7 9B 

FO 02 
OB A2 

9B 

82 

00 05 
30 

4A 03 
08 

FC AC 

02 


CMP 

BEQ 

LDX 


#DELLIN 

F0PLP1 

TQKPTR 


CPX 

BCC 

PJ-Al 


#NUMLEN 

F0P20 


LDA 

JMP 


CIOCAL 


INC 

JSR 

LDA 

LDX 

STA 

LDX 

PLA 

STA 

LDY 

JSR 


CLC 

RTS 


#DIGMSG 

ERRSUB 


CRSINH 

PUTCR 

#CR 

TOKPTR 
TOKBUF, X 
#TIOCB 

ICAX 1 , X 
#8 


; OPEN FILE FOR INPUT/OUTPUT (ACCORDING TO A) 
; "ENTER FILESPEC" MESSAGE 


i SET UP CURSOR, DISPLAY '>' 
i REMOVE LEADING SEPARATORS 


J DELETE LINE? 

; YES. START OVER 


SAVE CHAR 


CI0IN2 

IOERR 


J DONE 


; TRY AGAIN 


_j_PQP_^UslPUT/QUTPUT INDICATOfi 

; "TOO MANY CHARS" ERROR MESSAGE 

NOW HAVE FILESPEC STRING IN TOKBUF 


CURSOR OFF (INHIBIT ON) 

PUT CR SO >FILESPEC WILL BE DISPLAYED 


; PUT CR AT END OF STRING 
j_IEMPDR ARY IOCB # 
i INPUT OR OUTPUT 


; SET UP IOCB X, CALL CIO, AND CHECK FOR SUCCESS 
L 


NO ERROR 


ACA9 
ACA9 98 
ACAA 


IOERR 


IQERR2- 


TYA 


ACAA 48 

PHA 


ACAB 20 D7 9B 

JSR 

ERRSB2 

ACAE 20 BB 9F 

3SR 

FPUSHO 

ACB 1 68 

PLA 


ACB2 20 B9 A1 

JSR 

PSETO 

ACE5 A5 87 

LDA 

DHOFLG 

ACB7 48 

PHA 


ACB8 A9 00 

LDA 

#0 

ACBA 85 87 

STA 

DHOFLG 

ACBC 20 57 9D 

JSR 

FDSPO 

ACBF 68 

PLA 


ACCO 85 87 

STA 

DHOFLG 

ACC2 20 9D 9F 

JSR 

FPOPO 

ACCS 38 _ 

SEC 


ACC6 60 

RTS 



; DISPLAY "ERROR - " <ERROR #> 
i Y=ERROR # 


SAVE 

DISPLAY "ERROR - ", DO OTHER STUFF 
SAVE X 


CONVERT ERROR # TO FP TO ASCII (0-255) 

FRO <- FP (A) 

SAVE DHOFLG AND SET 


; DISPLAY ERROR NUMBER (WILL BE DECIMAL IN CURRENT FIX) 


; RELOAD X 
i ERROR 


□LLEEN CALCULATOR. BV C SHAW 


ACC 7 

ACC7 A9 04 
ACC9 20 60 AC 
ACCC BO 22 
ACCE A9 07 
AC 00 20 14 AD 
AC 03 DO 05 
AC05 20 60 9C 


SLOAD 


ACD8 BO 16 
ACDA. 

AC DA CO 03 
ACDC 4C EB AC 


ACDF A9 08 
ACE1 20 60 AC 
ACE4 BO OA 
ACE6 A9 OB 
ACES 20 14 AD 
ACEB 

ACEB FO 03 
AGED 20 A9 AC 


ACFO 

A CFO A2 30 


ACF2 AO OB 
ACF4 DO AC 



LDA 

4INPUT 



JSR 

FOPEN 



BCS 

FCLOSE 



LDA 

ttCETCHR 



JSR 

SAVLOD 



BNE 

SLD10 



JSR 

EPERR 


i 

ci nio 

BCS 

FCLOSE 



CP Y 

#EOF 



JMP 

SSAV10 


SSAVE 

LDA 

#OUTPUT 



_ JSR 

FOPEN 



BCS 

FCLOSE 



LDA 

#PUTCHR 



JSR 

SAVLOD 


SSAV10 

BEQ 

FCLOSE 



JSR 

IOERR 


FCLOSE 

LDX 

#TI OCB 


XCI OSF 





LDY 

#1 1 



BNE 

CIOCAL 



ACF6 


C 10 I NT 


ACF6 B9 
AC F9 9D 


OA BB 
4A 03 


LDA 

STA 


C IOTAB+3, Y 
ICAX1, X 


ACFC 
ACFC B9 
ACFE9D 


CI0IN2 


09 BB 

4 5 Q3 . 


LDA 

STA 


CIOTAB+2, Y 
ICBAH, X 


AD02 B9 08 BB 
ADOS 9D 44 03 
AD08 B9 07 BB 

LDA 

STA 

LDA 

CIOTAB+1, Y 
ICBAL, X 
CIOTAB+O, Y 

ADOE 9D 42 03 

STA 

ICCOM, X 

ADOE 

CI0IN3 


ADOE 20 56 E4 

JSR 

CIOV 

ADU CO 01 

CP Y 

#SUCCES 

AD 13 60 

RTS 



AD 14 

AD 14 A2 30 
AD 16 9D 42 03 
AD19 A5 D1 


SAVLOD 


#TIOCB 
ICCOM, X 
PRGADR+1 


i load PROGRAM MEM FROM SPECIFIED FILE 


i ERROR IF CRY SET 


i LOAD DATA 
i STATUS NOT SUCCES 

i IN THIS CASE SUCCESS => ERROR BECAUSE FILE 
IS TOO LONG. DISPLAY “END OF PROGRAM MEM" 
i JMP TO CLOSE FILE 


■, FILE JUST RIGHT IF END-OF-FILE 


i SAVE PROGRAM MEM IN FILE 


i SAVE DATA 


; NO ERROR 

/DISPLAY ERROR AND CLOSE 
; CLOSE TIOCB 


; CLOSE 

; JMP TO CIO CALL 


i SET UP IOCB, CALL CIO, & CHECK FOR SUCCESS 
INPUT: X=IQCB OFFSET, Y=CIOTAB OFFSET 


OUTPUT: EQ=>SUCCES, NE=>ERROR 


; SUBROUTINE TO LOAD OR SAVE DATA 


ADI B 9D 

45 

03 

STA 

ICBAH, X 


AD1E A9 

00 


LDA 

#PRGLEN 

i 0 

AD20 9D 

48 

03 

STA 

ICBLL, X 


AD23 9D 

44 

03 

STA 

ICBAL, X 

i 0 


COLLEEN CALCULATOR, BY C SHAW 


AD26 A9 04 
AD28 -9H- 49-jQa 


AD2B DO El 


LDA 

STA 

BNE 


#PRGLEN/256 

ICBLHiJL 

CI0IN3 


; CAM crn AND CHPCU FOB PORno IMP 


UJL 

AD IB 9D 45 03 
AD IE A9 00 
AD20 9D 48 03 
AD23 9D 44 03 


COLLEEN CALCULATOR > 


AD26 A9 04 
AD28 9D 4 9 0 3 
AD2B DO El 


L.JUM ~ r\ * .1 

STA ICBAH, X 

LDA #PRGLEN 

STA ICBLL/ X 

STA ICBAL/ X 


i O 


; 0 


BY C SHAW 


LDA #PRGLEN/256 

STA ICBLH , X 

BNE CI0IN3 i CALL CIO AND CHECK FOR ERROR JMP 




SUBROUTINES FOR CONVERSIONS 


A DSD 

Sli 



A DSD AS 4 S 


LDX 

•0*FPREC ♦LENGTH 

A D2F DO 16 


BNE 

LENG 

AD31 

SIN 



AD31 AS 48 


LDX 

*1*FPREC ♦LENGTH 

AD 3 3 DO 12 


BNE 

LENG 

AD33 

SFT 



AD39 A2 4E 


LDX 

#2*FPREC ♦LENGTH 

AD37 DO 0 E 


BNE 

LENG 

AD39 A2 54 

SYD 

LDX 

#3*FPREC ♦LENGTH 

AD3B DO OA 


BNE 

LENG 

AD3D A2 5A 

SMI 

LDX 

#4*FPREC ♦LENGTH 

AD3F DO 06 


BNE 

LENG 

AD41 A2 60 

SCM 

LDX 

#5*FPREC ♦LENGTH 

AD43 DO 02 


BNE 

LENG 

AD45 A2 66 

SKh 

LDX 

#6*FPREC ♦LENGTH 


i 

BNE 

LENG 


iSNAUTI 

LDX 

#7*FPREC+LENGTH 

AD47 

LENG 



AD47 A9 A2 


LDA 

#ZM 

AD49 DO 2E 


BNE 

CONVRT 

AD4B 

SKG 



AD4B A2 42 


LDX 

#LENGTH 

AD4D DO OA 


BNE 

MAS 

AD4F A2 6C 

SOZ 

LDX 

#0*FPREC+MASS 

AD51 DO 06 


BNE 

MAS 

AD53 

SLB 



AD53 A2 72 


LDX 

#1*FPREC+MASS 

AD55 DO 02 


BNE 

MAS 

A D57 

SGM 



AD57 A2 78 


LDX 

#2*FPREC+MASS 

AD59 

MAS 




AD59 A9 A5 
AD5B DO 1C 


AD5D A2 42 
AD5F DO 16 

jg>2 ?£ 

AD63 DO 12 
AD65 A2 84 
AD67 DO OE 


AD69 A2 8A 
AD6B DO OA 
AD6D A2 90 


AD6F DO 06 
AD71 A2 96 
AD73D0 02 
AD75 A2 9C 
A D77 

AD77A9jAA_ 


i JMP 


i LSB OF MESSAGE ADDR 
; JMP 


i CONSTANT 
i JMP 


1 (NO CONVERSION) 


SFLOZ 


..ST.SEL 


LDA 

BNE 

LDX 

BNE 

LDX 


#ZKG 

CONVRT 

#LENGTH 

VOL 

#0*FPREC+ VOLUME 


; JMP 


STBSP 


BNE 

LDX 

BNE 


VOL 

#1#FPREC+ VOLUME 
-VQI 


LDX 

BNE 

LDX 


#2#FPREC+ VOLUME 
VOL 

#3»FPREC+ VOLUME 


SGAL 


BNE 

LDX 

BNE 


VOL 

#4*FPREC+V0LUME 

VOL 


SCDEG 


SC GRAD 


SCRAD 

CDGR 


LDX 

LDA 
. IF 
BNE 
LDX 
BNE 
LDX 
BNE 
LDX 
LDA 


#5*FPREC+V0LUME 


#ZFL 

ASMBL 

CONVRT 


#LENGTH 

CDGR 

#0*FPREC+DEGREE 

CDGR 

#1*FPREC+DEGREE 

#ZDEG 


JMP 


DEGREES MSG 




COLLEEN CALCULATOR, BY C RHAU 


SC DEG 

LDX 

ttLENGTH 


BNE 

CDGR 

SCGRAD 

LDX 

#0*FPREC+DEGREE 


BNE 

CDGR 

SCRAD 

LDX 

tll*FPREC+DEGREE 

CDGR 

LDA 

#ZDEG 


COLLEEN CALCULATOR, BY C SHAW 


AD79 

AD79 A4 CA 
AD7B DO 17 

AD7D 85 CA 
AD7F AO BA 
AD81 20 98 DD 
AD84 20 97 A8 
AD87 A5 CA 
AD89 20 FO 9B 
AD8C 20 EE A1 
AD8F A9 44 
AD91 4C FO 9B 

AD94 

AD94 C5 CA 
AD96 DO 10 
AD98 AO BA 
AD9A 20 98 DD 
AD9D 20 3A A9 
ADAO 20 EE A1 
ADA3 A9 4F 
ADA5 4C FO 9B 

ADA8 

ADA8 A9 D4 
ADAA 4C B7 9B 







ADAD A9 9D 


. ENDIF 

CONVRT 


LDY 

CONFLG 

BNE 

C0NV10 


STA CONFLG 

LDY ttLENGTH/256 



JSR 

JSR 

LDA 

FLD1R 

SFMUL 

CONFLG 


JSR 

PUTMSG 


JSR 

FDSCOM 


LDA 

#CN2MSG 


JMP 

PUTMSG 

rnwum 


CMP 

CONFLG 


BNE 

CONERR 


LDY 

#LENGTH/256 


JSR 

FLD1R 


JSR 

SFDIV 


JSR 

FDSCOM 


LDA 

#CN3MSG 


JMP 

PUTMSG 

CONERR 




LDA 

#UNIMSG 


JMP 

ERRSUB 


. IF 

ASMBL 

i ; 

SM 

LDA 

#ZM 


JSR 

PUTMSG 


LDX 

#CFT 


BNE 

LC1DIV 

SFT 

LDA 

#ZFT 


JSR 

PUTMSG 


LDX 

#CFT 


BNE 

LC1MUL 

SLB 

LDA 

#ZLB 


JSR 

PUTMSG 


LDX 

#CLB 


BNE 

LC1MUL 

SKG 

LDA 

#ZKG 


JSR 

PUTMSG 


LDX 

#CLB 


BNE 

LC1DIV 

SGAL 

LDA 

#ZGAL 


JSR 

PUTMSG 


LDX 

#CL 


BNE 

LC1DIV 

SL 

LDA 

#ZLIT 


JSR 

PUTMSG 


LDX 

#CL 


BNE 

. ENDIF 

LC1MUL 

SCRAD 

LDA 

#ZRAD 


1 1 

i JMP 


j DEGREES MSG 


i CONVERT TO DIFFERENT UNITS 
i FLAG SET? 

; YES. 


; NO. SAVE MSG ADDR LSB & DO INTERMEDIATE CONVERSION 
i LOAD CONVERSION CONSTANT 

i AND MULTIPLY. 
i DISPLAY NEW UNITS 

i DISPLAY NEW X 
j DISPLAY "ENTER NEW UNITS" 


i CONVERT FROM INTERMEDIATE UNITS TO FINAL UNITS 
j FLAGS MATCH? 

; NO. ERROR - CAN 'T MIX TYPES 
; YES. LOAD CONVERSION CONSTANT 

i AND DIVIDE. 

i DISPLAY NEW VALUE 

; DISPLAY "CONVERSION COMPLETE" 


i DISPLAY "UNIT MISMATCH" ERROR MESSAGE & RETURN 


NEW VERSION 
i METERS->FT 


i JMP 

i FT->METERS 


j JMP 
i LB->KG 


i KG->LB 


jGAL->L ITERS (L) 




i RAD->DEG 


COLLEEN CALCULATOR 


BY C SHAW 


ADAF 20 FO 9B 
ADB2 A 2 36 
A0B4 AO BA 
A0B6 

ADB6 20 98 DO 
ADB9 4C 3A A9 


LDYIDV 

LD1DIV 


JSR 

JMP 


ADBC A9 99 
ADBE 20 FO 9B 
ADC 1 A2 36 
ADC 3 AO BA 
ADCS 

ADC 5 20 98 DD 
ADC 8 4C 97 A8 


SCDEG LDA 
JSR 
LDX 

LDY1ML LDY 
LD1MUL 

JSR 

JMP 


SMI 


SKM 


LDA 


JSR 

LDX 

. END IF 

ADC B 
ADCB 
ADCD 

A9 

_20 

5E 

FO 

SF 

?R 

LDA 

JSR 

ADDO 

A9 

20 


LDA 

ADD2 

20 

SF 

A6 

JSR 

ADD5 

A 2 

3C 


LDX 

ADD7 

AO 

BA 


LDY 

ADDR 

DO 

DB 


BNE 


COLLEEN CALCULATOR , BY C SHAW 


PUTMSG 

#P I QV 18 

#P ICONST /256 


, PI/180 

i FRO <- FRO / ( X, Y=PIC0NST/256) 
i FRO O FRO / ( X, Y) 


FLD1R 

SFDIV 


#ZDEG 
PUTMSG 
#P I0V18 
#P ICONST /256 

FLD1R 

SFMUL 


; FRO O FRO * DATA CONSTANT (LSB OF ADDR IN 
; FRO <- FRO * DATA CONSTANT (ADDR IN X & Y) 


ASMBL 
#ZMI 
PUTMSG 
#CM I 


#ZKM 


PUTMSG 

#CMI 


i MILES->KG 
; KM->MI 


#FAHMSG 

PUTMSG 


* DISPLAY "->C ELS I US" 


#32 

SUB I NT 
#C iPTS 
#C 1 PT8/256 
LD1DIY 


; FRO <- FRO—32 

; FAHRENHEIT -> CELSIUS C= ( 5/9 ) * (F-32) 
i JMP 


COLLET N CALCULATOR , BY C SHAW 




COMPOUND INTEREST SUBROUTINES 






J 


SUBROUTINES 10 

COMPUTE PARTS OK COMPOUND INT. 

ADDB 

20 

A2 

A3 

Z 1 IN 

J8R 

Z1 I LON 

t COMPUTE <1+I) A N 

ADDE 

4C 

19 

A6 


JMP 

8P0WER 


ADE1 

20 

DB 

AD 

Z 1 INM1 

JSR 

Z 1 IN 

j < < 1 + 1 ) A N ) - 1 

ADE4 

4C 

80 

A6 


JMP 

8UB0NE 


ADE7 

20 

70 

A9 

Z 1 1 INI 

JSR 

Z1 1IMN 

j(l < 1 + 1 ) A N ) / I 

ADEA 

20 

BB 

9F 

01 VI 

JSR 

FPUSHO 

1 FRO <- FRO/ I 

ADED 

20 

9E 

A3 


JSR 

L.D 1 


ADFO 

4C 

37 

A9 


JMP 

bpdiv 



LIQUATIONS 


ADF3 

A9 

80 

ADF9 

DO 

06 

ADF7 

A9 

00 

ADF9 

FO 

02 

AOFB 

A9 

01 

ADFD 

09 

C9 

AOFF 

A9 

1 li 

AE01 

DO 

12 

AE03 

A9 

02 

AE09 

DO 

F6 

AE07 

A9 

03 

AE09 

DO 

F2 


AEOB 

A9 

00 

AEOD 

FO 

02 

AEOF 

A9 

01 

AE1 1 

89 

C6 

AE13 

A9 

21 

AE1 9 



AE19 

4C 

9D 


QCMPND 

LDA 

**80 

i COMPOUND INTEREST 


BNE 

S0RD10 

i JMP 

8FVDUE 

LDA 

*0 

i ANNUITY DUE (PAY Al 

BEQ 

SORDID 

» E. G. SAVINGS ACCT. > 

SFVORD 

LDA 

*1 

i ORDINARY ANNUITY <P< 

SORDID 

STA 

DUEf LG 

) E. 0. LOAN 

LDA 

HDf VDUE 

i DISPLAY STATUS 


BNE 

8FND20 

, JMP TO CH8TAT 

8PVDUE 

LDA 

BNE 

*2 

SORDID 

i ANNUITY DUE/PV 

8PV0RD 

LDA 

BNE 

*3 

S0RD10 

1 ORDINARY ANNUITY /PV 

BENTI R 

LDA 

BEQ 

*0 

0FND1O 

I I NTI R VALUE 

3FIND 

LDA 

*1 

) FIND VALUE* GIVEN 0 

SFND10 

STA 

ENTFLO 


LDA 

KDENTER 

i DISPLAY STATUS 


JMP 


» 


Of ND20 


CH8TAT 



COLLEEN CALCULATOR, BY C SHAW 


AE18 
AE 1 8 

AS 

CA 

SBAL 

LDA 

ENTFLG 

AE 1 A 

FO 

2C 


BEO 

SBALOS 

AE1C 

AS 

C5 


LDA 

DUEFLG 

AE1E 

IQ 

Q3 


BPL 

SBAL20 

AE20 

AE20 

4C 

BS 9B 

SBAL1S 

JMP 

KEYERR 

AE23 

AE23 

29 

02 

SBAL20 

AND 

#2 

AE25 

FO 

F9 


BEQ 

SBAL15 


i BAL « BALLOON PAYMENT 


AE27 20 AC A3 
AE2A 20 89 A8 
AE2D 20 BB 9F 
AE30 20 E7 AD 
A £33 20 94 AS 
AE36 20 B6 DD 
AE39 20 BO A3 


ANNUITY DUE: 

LDPMT 

ZMUL1I 

FPUSHO 

Z11INI 

SPMUL 

FMOVE 

LDPV 


nCJL OJ 

AE3F 20 BB 9F 


JSR 

or ouu 

FPUSHO 

AE42 20 21 A9 


JSR 

Z 1 IMN 

AE45 20 37 A9 


JSR 

SPDIV 

AE48 

SBAL05 



AE48 A9 04 


LDA 

#4 

AE4A 

MEMSTO 



AE4A 85 A3 


STA 

MEMNUM 

AE4C A9 02 


LDA 

#2 

AE4E 20 6B A5 


JSR 

SFIX2 

AE51 4C 65 A8 


JMP 

SST010 


i NO BAL IF FV OR CMPNDINTRST 

BAL = (PV - P MT *(1-(1 + I) N ) / I ) / < 1 + 1 ) N 

BAL = (PV - PMT*< 1 + 1 )*( i_( i+i )^-N) / i ) / < i+i )^-n 

; FRO <- PMT 

i IF ANNUITY DUE THEN FRO <- FRO * (1+IJ_ 
i ( 1 - ( 1 + I ) A -N ) / I 


; PV 


; 81+1 )^-N 


i ENTER VALUE 


; FI X 2 (DISPLAYING DOLLAR VALUE) 


i STORE REG & DISPLAY 


AE54 

AE54 A5 C 6 


AE56 DO 21 
AE58 20 BB 9 F 
AE5B A9 64 


SI 


LDA 


BNE 

JSR 

LDA 


ENTFLG 


SI10 

FPUSHO 


AE6C 20 65 A8 

JSR 

SST010 

AE6F A9 64 

LDA 

#100 

AE7 1 20 84 A8 

JSR 

INTMUL 

AE74 A9 04 

LDA 

#4 

AE76 4C 6B A5 

JMP 

SFIX2 

— AE79 „ 

_ SI 10 


AE79 A5 C5 

LDA 

DUEFLG 

AE7B 10 A3 

BPL 

/ 

SBAL15 

AE7D 20 BO A3 

JSR 

LDPV 

AE80 20 B6 DD 

JSR 

FMOVE 

AE83 20 9A A3 

^ JSR 

LDFV 

AE86 20 3A A9 

JSR 

SFDIV 

AE89 20 BB 9F 

JSR 

FPUSHO 

AE8C 20 AS A3 

_JSR 

LDN 

AE8F 20 24 A9 

JSR 

SRECIP 


; ENTERED I * INTEREST IN PERCENT 


; CONVERT INTEREST IN PERCENT TO FRACTIONAL VALUE 


AE5D 20 B9 A1 
AE60 20 37 A9 
AE63 A9 08 

SI 05 

JSR 

JSR 

LDA 

PSETO 

SPDIV 

#8 

a FIX 

AE65 20 6B A5 


JSR 

SFIX2 


AE68 A9 06 


LDA 

#6 

; I 

AE6 A 85 A3 


STA 

MEMNUM 



j.FIX 8 FO R .1/100 






* FIX 4 FOR I IN PERCENT (DISPLAY) 
i AND RETURN 


COMPOUND INTEREST I = < (FV/PV)'M 1/N)~1J*100 


i FV/PV 


; i/N 


— 


COLLEEN CALCULATOR, BY C SHAW 


AE89 

20 

BB 

9F 

JSR 

rrUbHU 


AE8C 

AE8F 

20 

20 

A8 

24 

A3 

JSR 

LDN 


II M . . ■■ii- ... — 

A9 

JSR 

SRECIP 

i 1/N 


COLLEEN CALCULATOR, BY C SHAW 


AE92 20 19 A6 JSR SPOWER 

AE95 20 8D A6 JSR SUBONE 

AE98 4C 63 AE JMP SI 05 ; STORE NEW I 

. IF ASMBL 

SI 20 ; ANNUITY - USE NEWTON - RAPHSON ITERATION (SEE SSQRT) 

CMP #1 

BEQ SI 30 

JMP KEYERR 

SI 30 ; ORDINARY ANNU1TY/FV 

i F ( I ) ■ PMT*( ( 1+1 >^N-1 > / I - FV « 0 

; FPRIME(I) = (PMT*N*< 1 + 1 ) '-<N-l )-<F(I)+FV> >/I 

; DELTA I = F ( I ) /FPR IME ( I ) 

LDA #0 il = MEM ( 6 ) <- . 01 = *3F, 1 , O, 0, 0, 0 

LDX #3 

SILP1 

STA 
DEX 
BPL 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 


6*FPREC+MEM0RY+2, X 


SILP1 

#$3F 

6*FPREC+MEM0RY 

#1 

6»FPREC+MEM0RY+1 

DMFLG i DON'T DISPLAY MEM DURING ITERATION LC - li 

#$FF ; NUMBER OF ITERATIONS 

ITER 


SILP 



JSR 

LDA 

JSR 

Z 1 INI I 
#8 

MEMMUL 


i ( ( 1+1 ) A N-1 )/I 
; PMT 


JSR 

FPUSHO 



SAVE FOR SPSUB 


JSR 

FSTOT 



SAVE FOR F'(I) 


JSR 

LDFV 





JSR 

SPSUB 





JSR 

FPUSHO 



SAVE F ( I ) 


JSR 

Z1 INI 



( 1+1 ) A (N-1 ) 


LDA 

#8 



PMT 


JSR 

MEMMUL 





LDA 

#7 



N 


JSR 

MEMMUL 





JSR 

FLD1T 


; RELOAD F< I ) -PV 


JSR 

SFSUB 





JSR 

FPUSHO 





JSR 

LDI 





JSR 

SPDIV 



F " ( I ) 


JSR 

SPDIV 



FdJ/F'd) * DELTA I 


LDA 

FRO 



0? 


BNE 

SI35 



NO. CONTINUE 


JSR 

LDI 



YES. RELOAD I INTO X REG 


JMP 

SI 40 



DONE 

SI35 







JSR 

FMOVE 



NO. I<- I+DELTA I 


JSR 

LDI 





JSR 

SFSUB 





DEC 

ITER 





BEQ 

SI40 



DONE 


JSR 

SI05 



STORE NEW I 


JMP 

SILP 



CONTINUE 

SI 40 

DEC 

DMFLG 



<- 0 DONE => RETURN 


JMP 

SI05 



STORE NEW I & DISPLAY 


. END IF 






COLLEEN CALCULATOR » BY C SHAW 


_ AE9B 

AE9B A5 C6 
AE9D FO 46 

ACOC A ■» 

bN 

LDA 
BEQ 
LDA 

ENTFLO 

SN05 

DUEFLG 

Ac.tt Aa ua 
AEA1 10 IB 
AEA3 20 BO A3 


BPL 

JSR 

JSR 

SN20 

LDPV 

FMOVE 

AEA6 20 a 6 Liu 
AEA9 20 9A A3 
AEAC 20 3A A 9 


JSR 

JSR 

JSR 

LDFV 

SFDIV 

SLN 

AEAF 20 
AEB2 20 BB 9F 
AEB5 20 BO A6 


JSR 

JSR 

JSR 

FPUSHO 
ZLN1 1 
SPDIV 

AEB8 20 3/ At 
AEBB 4C E5 AE 


JMP 

SN05 

AEBE 

SN20 

AND 

#2 

AEiOC. fiiV 

AECO DO 28 

/ 

_ i_ - 

BNE 

SN50 

AEC2 20 9A A3 


JSR 

LDFV 

AEC5 A9 06 

Arn 'in CZ. AT 


LDA 

JSR 

4t6 

MEMMUL 

Atu / C.w C.O rivJ 

AECA 20 BB 9F 


JSR 

FPUSHO 

AECD 20 AC A3 

Arnrt orv OO AP 


JSR 

JSR 

LDPMT 

ZMUL1I 

hclUU cll/ □/ jna 

AED3 20 37 A9 

% 

JSR 

SPDIV 

AED6 20 51 A9 
Acn<? 

SN30 

JSR 

ONEADD 

AED9 20 B3 A6 


JSR 

SLN 

AEDC 20 BB 9F 


JSR 

FPUSHO 

AEDF 20 BO A6 


JSR 

ZLN1I 

AEE2 20 37 A9 


JSR 

SPDIV 

AEE5 A9 07 

SN05 

LDA 

#7 

AEE7 4C 4A AE 


JMP 

MEMSTO 

AEEA 

SN50 

; 




iN = NUMBER OF PERIODS 


. COMPOUND INTEREST N = LN < FV/PV > /LN < 1 + I > 


; FV/PV 


j LN ( 1 + 1 > 


; STORE NEW N 
; ANNUITY FV OR PV? 


; 1 => PV 

0=> FV N=LN(FV*I/PMT+1 >/LN< 1+1 ) 

DUE N=LNCFV*I/(PMT*<1+I> > +l ) /LN C l+D 


; I 


AEEA 20 AC A3 

JSR 

LDPMT 

AEED 20 89 A8 

JSR 

ZMUL1I 

AEFO 20 55 9F 

JSR 

FSTOT 

A EF3 20 BB 9F 

JSR 

FPUSHO 

AEF6 20 9E A3 

JSR 

LDI 

AEF9 20 B6 DD 

JSR 

FMOVE 

AEFC A9 04 

LDA 

#4 

AEFE 20 E6 A3 

JSR 

MEMMUL 

AF01 20 80 A9 

JSR 

SPSUB 

AF04 20 BB 9F 

JSR 

FPUSHO 

AF07 20 9E A3 

JSR 

LDI 

AFOA A9 09 

LDA 

#9 

AFOC 20 E6 A3 

JSR 

MEMMUL 

AFOF 20 B6 DD 

JSR 

FMOVE 

AF12 20 49 9F 

JSR 

FLDOT 

AF1 5 20 83 A9 

JSR 

SFSUB 

AF18 20 37 A9 

JSR 

SPDIV 

AF1B 4C D9 AE 

JMP 

SN30 


i IF DUE THEN *< 1+1 ) 


i LN< 1+1 > 


j ENTER 


PV N = LN<(PMT-I*BAL)/(PMT-I*PV>>/LN<l+n 

DUE N = LN< (PMT*<l+I)-I*BAL)/<PMT*(i+I)-I*PV) )/LN(i+I) 

i IF DUE THEN *(1 + I) — 


; BAL 


i PV 


; RELOAD PUT OR PMT*(1+I) 


AF1E 


SPMT 


i PhT = PAYMENT 




COLLEEN CALCULATOR, BY C SHAW 


AF1B 4C D9 AE 


JMP 


SN30 


AF1E 

SPliT 



i PMT = PAYMENT 

COLLEEN CALCULATOR. 

BV C SHAW 




AF1E A5 C6 
Ann cn oc 


LDA 

BEQ 

ENTFLG 

SPMT05 


r\r ciU r U Jr 

AF22 A5 C 5 


LDA 

DUEFLG 


AF24 10 03 


BPL 

SPMT20 


ac-da 4C 20 AE 


JMP 

SBAL15 

i NO PMT IF COMPOUNT INTEREST - NOT VALID COMMAND 

AF29 

SPMT20 




AF29 29 02 

Arno nn i “7 


AND 

BNE 

#2 

SPMT30 


Hr c-U UU 1/ 




FV PMT = FV*I/< ( 1 + 1 >'N-1 ) 


J 



DUE PMT = FV*I/< ( 1 + 1 >'-N-l >*< 1 + 1 >=ABOVE/ < 1 + 1 ) 

Apnn er i An 


JSR 

Z1 INM1 

4 (l + IKN-l 

AF30 20 89 A8 


JSR 

ZMUL1 I 

; IF DUE THEN *< 1 + 1 ) 

AF33 20 B6 DD 


JSR 

FMOVE 


AF'IA 20 9A A3 


JSR 

LDFV 


AF39 20 3A A9 


JSR 

SFDIV 


AF3C A9 06 


LDA 

#6 

i I 

AF3F 20 E6 A3 


JSR 

MEMMUL 


AF4 1 4C 61 AF 


JMP 

SPMT05 


AF44 

SPMT30 



i PV PMT = <PV-BAL*< 1 + 1 )' % -N)/( < l-< 1 + 1 >^-N) /I ) 





DUE PMT = (PV-BAL*( 1 + 1 >'•— N) / ( ( 1~ ( 1 + 1 > "'-N ) / I* ( 1 + 1 ) ) 

AF44 20 21 A9 


JSR 

Z 1 IMN 

; ( 1 + 1 )■*— N 

AF47 A9 04 


LDA 

#4 

; BAL 

AF49 20 E6 A3 


JSR 

MEMMUL 


AF4C 20 B6 DD 


JSR 

FMOVE 


AF4F 20 B0 A3 


JSR 

LDPV 


AF52 20 83 A9 


JSR 

SFSUB 


AF55 20 BB 9F 


JSR 

FPUSHO 


AF58 20 E7 AD 


JSR 

Z 1 1 INI 

; ( ( 1-<1 + I K-N)/I ) 

AF5B 20 89 AS 


JSR 

ZMUL1 I 

; IF DUE THEN *< 1+1 ) 

AF5E 20 37 A9 


JSR 

SPDIV 


AF61 A9 08 

SPMT05 

LDA 

#8 


AF63 4C 4A AE 


JMP 

MEMSTO 

; ENTER 

AF66 

SPV 



j PV - PRESENT VALUE 

AF66 A 5 C6 


LDA 

ENTFLG 


AF68 F0 28 


BEQ 

SPV05 


AF6A A5 C5 


LDA 

DUEFLG 


AF6C 10 OB 


BPL 

SPV20 



i 



COMPOUND INTEREST PV = FV*(1+I)^-N 

AF6E 20 21 A9 


JSR 

Z1 IMN 

i (1 + IK -N 

AF7 1 A9 05 


LDA 

#5 

i FV 

AF73 20 E6 A3 


JSR 

MEMMUL 


AF76 4C 92 AF 


JMP 

SPV05 

j STORE NEW VALUE 

AF79 

SPV20 



; PV = PMT * < l-< 1 + 1 ) X '-N)/I+BAL*< 1 + 1 ) X -N 


i 



DUE = PMT * < l-< 1 + 1 K-N)/I*< 1 + 1 >+BAL*( 1 + 1 )' -N 

AF79 20 E7 AD 


JSR 

Z11INI 

i ( 1 - < 1 + 1 ) X '~N ) / 1 

AF7C A9 08 


LDA 

#8 

i PMT 

AF7E 20 E6 A3 


JSR 

MEMMUL 


AF81 20 89 A8 


JSR 

ZMUL1I 

i IF DUE THEN *< 1+1 ) 

AF84 20 BB 9F 


JSR 

FPUSHO 


AF87 20 21 A9 


JSR 

Z 1 IMN 

i < 1 + 1 )'-N 

AF8A A9 04 


LDA 

#4 

i BAL 

AF8C 20 E6 A3 


JSR 

MEMMUL 


AF8F 20 67 A9 


JSR 

SPADD 


AF92 A9 09 

SPV05 

LDA 

#9 


AF94 4C 4A AE 


JMP 

MEMSTO 

i ENTER 


COLLEEN CALCULATOR. BV C SHAW 


STATISTICS ROUTINES 


AF97 

AF97 48 
AF98 20 18 9 F 
AF9B 68 
AF9C 48 
AF9D 20 AA AF 
AFAO 20 18 9F 
AFA3 20 5A A8 
AFA6 68 

AFA7 1H 

AFA8 69 01 

~AEAA 

AFAA 20 B8 A3 
AFAD A5 CS 


AFB1 20 6A A9 
AFB4 4C BD AF 


AFB7 20 83 A9 
AFBA 20 82 A5 


AFBD 20 CO A3 
AFCO 20 A7 DD 
_AFC3 A 5 ED 


AFC 5 DO 06 
AFC 7 20 86 9D 
AFCA 4C72A8 


AFCD 
AFCD 60 


2SIGMA 


PHA 

JSR 

PLA 

PHA 

JSR 

JSR 

JSR 

PLA 

CLC 

ADC 


MEMADD 


JSR 

LDA 

BNE 


JSR 

JMP 


MEMA10 


JSR 

JSR 


MEMA30 


RTS 


A FCE 

A FCE 20 B2 A3 


MEMO IV 


JSR 


AFD1 A9 04 
AFD3 20 B8 A3 
AFD6 4C 3A A? 


LDA 

JSR 

JMP 


FLDOS 


MEMADD 

FLDOS 

SSQUAR 


#1 


i MEM ( A ) <— MEM ( A ) +TOS MEMtA+l 

, FROOTOP OF STACK < TOS > 
i RESAVE MEM • 


MEM ( A ) <-MEM ( A ) +/-FRO 


MEMLD1 

MEMFLG 

MEMA10 


SFADD 

MEMA20 


SFSUB 

SCHGSG 


JSR 

JSR 

LDA 

MEMLDR 

FSTOR 

DSPFLG 

BNE 

MEMA30 

JSR 

TOKNUM 

JMP 

DSPMEM 


MEMLDO 


#4 

MEMLD1 

SFDIV 


i ADD? 

.NO 

; YES 


; SUBTRACT 
; FRO-MEM< A) 


-> MEM < A > -FRO 


; MEM(MEMNUMX-FRO 


; DISPLAY IN MEM AREA 




FRO <- MEM(A) / N 
MEM ( A ) -> FRO 
N~>FR 1 


COLLEEN CALCULATOR, BY C SHAW 


AFD9 

A9 

05 


SXMEAN 

LDA 

#5 

AFDB 

DO 

FI 



BNE 

MEMDIV 

AFDD 

A9 

07 


SYMEAN 

LDA 

#7 

AFDF 

DO 

ED 



BNE 

MEMDIV 

AFE1 




SXVARI 



AFE1 

A9 

05 



LDA 

#5 

AFE3 

DO 

02 



BNE 

ZVAR 

AFE5 




SYVARI 



AFE5 

A9 

07 



LDA 

« 7 

AFE7 




ZVAR 



AFE7 

20 

C9 

9F 


JSR 

ZVAR 2 

AFEA 

A9 

03 



LDA 

#3 

AFEC 

20 

Be 

A3 


JSR 

MEMLD1 

AFEF 

20 

6A 

A9 


JSR 

SFADD 

AFF2 

4C 

37 

A9 


JMP 

SPDIV 

AFF5 

20 

EC 

BF 

SCORRE 

JSR 

SXSTDD 

AFF8 

20 

BB 

9F 


JSR 

FPUSHO 

AFFB 

20 

F2 

BF 


JSR 

SYSTDD 

AFFE 

20 

37 

A9 


JSR 

SPDIV 

BOOl 

20 

BB 

9F 


JSR 

FPUSHO 

B004 

20 

3A 

BO 


JSR 

SSLOPE 

B007 

4C 

94 

AS 


JMP 

SPMUL 


BOO A SX 


BOO A 

20 

BB 

9F 

JSR 

FPUSHO 

BOOD 

20 

1C 

BO 

JSR 

SYINTE 

B010 

20 

QO 

A9 

JSR 

SPSUB 

B013 

20 

BB 

9F 

JSR 

FPUSHO 

B016 

20 

3A 

BO 

JSR 

SSLOPE 

B019 

4C 

37 

A9 

JMP 

SPDIV 

B01C 




SYINTE 


B01C 

20 

□A 

CD 

p 

JSR 

SSLOPE 

B01F 

A9 

05 


LDA 

#5 

B021 

20 

B8 

A3 

JSR 

MEMLD1 

B024 

20 

97 

A8 

JSR 

SFMUL 

B027 

20 

B6 

DD 

JSR 

FMOVE 

B02A 

A9 

07 


LDA 

#7 

B02C 

20 

R2 A3 

JSR 

MEMLDO 

B02F 

20 

83 

A9 

JSR 

SFSUB 

B032 

A9 

04 


LDA 

#4 

B034 

20 

B8 

A3 

JSR 

MEMLD1 

B037 

4C 

3A 

A9 

JMP 

SFDIV 


B03A 




SSLOPE 


B03A 

A9 

05 


LDA 

#5 

B03C 

20 

C9 

9F 

JSR. 

ZVAR2 

B03F 

20 

B6 

DD 

JSR 

FMOVE 

B042 

A9 

05 


LDA 

#5 

B044 

20 

B2 

A3 

JSR 

MEMLDO 

B047 

20 

3A 

A9 

JSR 

SFDIV 

B04A 

A9 

07 


LDA 

#7 

B04C 

20 

B8 

A3 

JSR 

MEMLD1 

B04F 

20 

97 

A8 

JSR 

SFMUL 

B052 

20 

B6 

DD 

JSR 

FMOVE 

B055 

A9 

09 


LDA 

#9 

B057 

20 

B2 

A3 

JSR 

MEMLDO 


i MEAN < X ) O SIGMA ( X ) /N 

* JMP , 

iMEAN(Y) <- SIGMA(Y)/N 
i JMP 

i VARIANCE ( X ) <- <SIGMA(SQU(X> ) -SQU (SIGMA ( X ) )/N)/ 
j SIGMA X 
i JMP 

i VAR ( Y ) O (SIGMA (SQU(Y) ) -SQU ( SIGMA ( Y ) )/N)/ (N+WE 
i SIGMA Y 

i THIS PART IS COMMON TO BOTH SXVARI AND XYVARI 
; COMPUTE SIGMA(SQU( ) )-SQU(SIGMA( ) >/N 
i WEIGHT 

i N+WEIGHT (SHOULD BE 0 OR -1) 
i NUMERATOR/ (N+UEIGHT) 

i CORRELATION = R = M * STDDEV ( X ) /STDDEV ( Y ) 


; STDDEV ( X ) /STDDEV ( Y ) 
i M 


iX <- (Y-BJ/M (Y ENTERED IN X REG) 

i SAVE Y 

j B 

J-Y.-B 

i M 

j (Y-Bl/M - 

jY-INTERCEPT = B = (SI GMA ( Y > -M*S I GMA ( X ) ) /N 

^ 

i SIGMA X 

^ 

i SIGMA ( Y ) 


i N 


SLOPE = M = (SIGMA ( X*Y > -SIGMA( X ) *SIGMA( Y ) / N ) / (SIGMA ( SQU ( X ) ) -SQU ( SI GMA ( X ) ,' / N 

SIGMA ( X ) 

COMPUTE SIGMA(SQU(X) >-SQU(SIGMA< X ) )/N, STORE ON STACK 
N-> FR1 (PUT IN FRO BY ZVAR2 ) 

SIGMA ( X ) 


; SIGMA( Y ) 


i SIGMA (X*Y> 


Moore gutlnejj Formt, Inc 


COLLEEN CALCULATOR. BY C SHAN 


B05A 20 83 A9 
B05D 20 86 9F 
B060 4C 3A A9 

B063 

B063 A9 03 
B065 85 A3 
B067 4C <65 A8 


SNWEIG 


JSR 

SFSUB 

JSR 

FP0P1 

JMP 

SFDIV 

LDA 

#3 

STA 

MEMNUM 

JMP 

SST010 


; NUMERATOR 

iLOAD DENOMINATOR (FROM ZVAR2) 


; WEIGHT FACTOR 
■, MEM ( 3 ) X 











# COLLEEN CALCULATOR. BY C SHAW 





COLLEEN CALCULATOR, BY C SHAW 


; BASIC SINE ROUTINE 

i TO FIX BUGS OF VERSION 5.9 OF SHEP BASIC 

i 

; BY DAVE & LARRY 

i 4-6-79 


SINE ROUTINE 


B06A 

B06A 

20 

DB 

BF 

; THEN ADJUST 
SSIN 

JSR 

FOR QUADRANT 
SINMOD 

i TAKE ANGLE MOD 2*PI, 

B06D 

A5 

D4 


SSIN2 LDA 

FRO 

GET SIGN 

B06F 

29 

80 


AND 

#$80 


B071 

85 

FO 


STA 

FCHRFLG 

AND SAVE 

B073 

A5 

D4 


LDA 

FRO 


B075 

29 

7F 


AND 

#$7F 

FRO=ABS < FRO ) 

B077 

85 

D4 


RTA 

FRO 






,• FRO-FRO/ < P I /2 ) OR FR0=FR0/90 

B079 

2Q 

FI 

A3 

JSR 

PIOVL 

j LOAD X & Y REGS TO 

B07C 

20 

B6 

AD 

JSR 

LD1DIV 

FRO=FRO/FR 1 

B07F 

90 

04 


BCC 

NOSNER 


BQ81 

60 



RTS 


; RETURN 

B082 




SINERR 



B082 

4C 

88 

A9 

JMP 

CRYSND 

GO IF ERROR 

BOSS 




NOSNER 







/ 

; IF FRO NOW FRACTION, IT IS 

QUADRANT 0 





; ELSE, GET INTEGER OF FRO LSD 

B085 

A9 

00 


LDA 

#0 


B087 

85 

B8 


STA 

QUADFLG 

ASSUME QUADRANT 0 

B089 

J3S 



SEC 



B08A 

A5 

D4 


LDA 

FRO 

GET EXPONENT 

B08C 

E9 

40 


SBC 

#$40 

SUBTRACT 64 EXCESS 

B08E 

30 37 


EMI 

SINF3 

GO IF QUADRANT 0 

B090 

C9 

04 


CMP 

#FPREC-2 

IS EXPONENT TOO BIG? 

B092 

BO 

EE 


BCS 

SINERR 

YES 


360 OR 400 


GET PI/2 90 OR 100 


— I 


£094 AA 

; ACC=INDEX TO 
; THEN AND WITH 
TAX 

LSD. GET 
3 TO GET 

10*TEN'S DIGIT + ONE'S DIGIT 
QUADRANT 

INDEX TO LSD IN FRO 

B095 B5 D5 

LDA 

FRO+1 , X 

GET LSD 

B097 29 OF 

AND 

#$F 

GET ONE'S DIGIT 

B099 85 FI . 

STA 

DIGRT 

AND SAVE 

B09B B5 D5 

LDA 

FRO+1, X 

GET LSD 

B09D 29 FO 

AND 

#$F0 

GET TEN'S DIGIT 

B09F 4A 

LSR 

A 

TIMES 8 

BOAO 85 B8 

STA 

QUADFLG 

AND TEMP SAVE 

B0A2 4A 

LSR 

A 


BO A3. 4 A 

LSR 

A 

TIMES 2 

B0A4 18 

CLC 



BOAS 65 B8 

ADC 

QUADFLG 

PLUS TIMES 8 GIVES TIMES 10 

B0A7 65 FI 

ADC 

DIGRT 

PLUS ONE'S DIGIT GIVES INTEGER 

B0A9 29 03 

AND 

#3 

MASK LOW BITS 

BOAB 85 B8 

STA 

QUADFLG 

NOW HAVE QUADRANT (0,1,2, OR 3) 

BOAD 86_FJ 

STX 

DIGRT 

SAVE INDEX TO LSD 


• COLLEEN CALCULATOR, BY C SHAW 


PUT FRO IN FR 1 , AND CLEAR FRACTIONAL PART OF FR1 


BOAF 20 B6 DD 
BOBS A6 FI 
nnod ao no 

i THEN 

GET FRO 
JSR 
LDX 
LDA 

=FRACTI ONAL 
FMOVE 
DIGRT 
#0 

PART OF FRO 

FR 1=FR0 
RESTORE INDEX 

O n" uv 

B0B6 95 E2 
B0B8 E8 
B0B9 EO 04 

SINF1 

STA 

INX 

CPX 

FR1+2, X 
#FPREC— 2 

CLEAR FRACTIONAL PART 
FROM DIGRT+1 TO END 
DONE? 

BOBB 90 F9 
BOB D 20 60 DA 


BCC 

JSR 

SINF1 

FSUB 

NO 

FRO=FRO-FR 1 (FRO WILL BE FRACTIONAL PART) 

BOCO 46 B8 
B0C2 90 03 

; IF ODD QUADRANT, SET FRO 
LSR QUADFLG 

BCC SINF3 

=1— FRO (90 DEGREE INVERT) 

IS IT ODD QUADRANT? 

NO ^ 

BOCA 20 73 A9 


JSR 

ONESUB 

i FRO <:- 1 —FRO 


i 

i SAVE 

ARG FOR 

LATER 


B0C7 

B0C7 A2 E6 
B0C9 AO 05 

SINF3 

LDX 

LDY 

#FPSCR 

#FPSCR/256 

i CAN 'T USE FTEMP BECAUSE SSIN IS CALLED BY 


BOCB 20 A 7 DD 


JSR 


FSTOR 


; FPSCR <- FRO 


EOCE 20 5A AS 

B0D1JJ0..31 

B0D3 A9 06 
B0D5 A2 06 
BOD?, AQBA 


NOW COMPUTE SINE 

THIS CODE TAKEN FROM BASIC 5. 9 LINES 6760-6770 


B0D9 20 40 DD 
BODC A2 E6 
JIQBfLAQ.. O 5 


JSR SSQUAR 

-BOS S INF IN 

LDA #NSCF 

LDX #SCOEF 

LDY__ #SC0EF/256 


BOEO 20 C5 AD 


JSR 

LDX 

LDY 

JSR 


PLYEVL 

#FPSCR 

#FPSCR/256 

LD1MUL 


FR0=X##2 

i ERROR (ALREADY REPORTED) 


EVALUATE P(X**2) 


FR0=SIN(X)=X*P(X**2) 


B0E3 46 B8 
BOE 5 90 08 
B0E7 A5 D4 


JLEL-LDWER QUADRANT (2 OR 3) THEN FRO=-(FRO) 


B0E9 FO OC 
BOEB 49 SO 
BQED 85 D4 


LSR 

BCC 

LDA 

BEQ 

EOR 

-STA 


QUADFLG 

SINF4 

FRO 

SINDON 

#$80 

_FRQ 


IS IT LOWER QUAD? 
NO 

IS FRO=Q 
YES 

ELSE, FRO=- ( FRO ) 


BOEF A5 D4 
B0F1 FO 04 
B 0F3 45 FO 
B0F5 85 D4 


i IF SIGN WAS NEGATIVE COMING IN TO ROUTINE, INVERT SIGN 

—i . GOING OUT _ 

SINF4 LDA FRO ANSWER 

BEQ SINDON GO IF ZERO 

EOR FCHRFLQ INVERT ORIGINAL SIGN 

STA FRO AND THIS IS END ANSWER 


B0F7 29 7F 
B0F9 C? 40 
BOFB 90 07 
BOFD 18 
BOFE A9 QQ 
B100 85 D8 
B 102 85 D9 
B104 60 


J IF ABS(FRO) 
SINDON AND 

C MP 

BCC 

CLC 

LEA 

STA 

STA 

S1NFIN RTS 


>• 1 THEN PERFORM PSEUDO INT(FRO) 

#*7F WITHOUT SIGN BIT 

**40 COMPARE $40 

SINFIN 

NO ERROR CLEAR 

#0 STORE 0 IN LOW BYTES OF FRO 

FRO+4 

FRO+5 



COLLEEN CALCULATOR, BY C SHAN 



BJLQ4 60 


S INF IN RTS 


COLLEEN CALCULATOR, 


BY C SHAW 


ft B105 SASIN 



B105 

20 

8C 

9F 


JSR 

ARC SUB 


B 108 

A5 

EO 



LDA 

FR1 

ft 1 

B10A 

DO 

OC 



BNE 

SAS10 


B10C 

A5 

D4 



LDA 

FRO 


B10E 

08 




PHP 


ft 

B10F 

20 

AO 

A4 


JSR 

SAC 10 


B 1 12 

28 




PLP 



B1 13 

10 

EF 



BPL 

SINFIN 

# 

B 1 1 5 

4C 

82 

A5 


JMP 

SCHGSG 


B 1 18 




SAS10 




B 1 18 

20 

3A 

A9 


JSR 

SFDIV 

it 





# 

JMP 

SATAN 






. i - 


FROM SHEPARDSON 


B 1 IB 




SATAN 



0 

BUB 

A9 

00 



LDA 

#0 


BUD 

85 

FO 



STA 

FCHRFLG 


BUF 

85 

FI 



STA 

DIGRT 

0 

B 121 

A5 

D4 



LDA 

FRO 


B123 

29 




AND 

#*7F 


B 125 

C9 

40 



CMP 

#$40 

0 

B 127 

30 

15 



BMI 

ATAN1 


B 129 

A5 

D4 



LDA 

FRO 


B12B 

29 

80 



AND 

#$80 


B12D 

85 

FO 



STA 

FCHRFLG 


B12F 

E6 

FI 



INC 

DIGRT 


B 131 

A9 

7F 



LDA 

#$7F 


B 133 

25 

D4 



AND 

FRO 


B135 

85 

D4 



STA 

FRO 


B 137 

A2 

EA 



LDX 

#FP9S 


B 139 

AO 

DF 



LDY 

#FP9S/$100 


B13B 

20 

95 

DE 


JSR 

XFORM 


B13E ATAN1 


% 


813E A2 E6 

B 140 AO 05 
B 142 20 A7 DD 
B 145 20 5A A8 
B 1 48 BO BA 
B14A A9 OB 

_ E14CA2 AE 

B14E AO DF 
B 1 50 20 40 DD 

B153B0 26 

B 1 55 A2 E6 
B 1 57 AO 05 
El 59 20 C5. AD 
B15C BO A6 
B15E A5 FI 

B16Q FQ 10 

B 162 A2 FO 
B 164 AO DF 
B 166-20- 98 DD 
B 169 20 66 DA 
B16C A5 FO 

B16E 05 -04 

B170 85 D4 
B 1 72 

BITS A 5 FB 

B 1 74 FO 05 



ATAN2 





LDX 

#FPSCR 

LDY 

#FPSCR/256 

JSR 

FSTOR 

JSR 

SSQUAR 

BCS 

SINFIN 

LDA 

#NATCF 

LDX 

#ATCQEF 

LDY 

#ATC0EF/256 

JSR 

PLYEVL 

BCS 

ATNOUT 

LDX 

#FPSCR 

LDY 

#FPSCR/256 

JSR 

LD1MUL 

BCS 

SINFIN 

LDA 

DIGRT 

beq 

ATAN2 

LDX 

#P I0V4 

LDY 

#P I0V4/256 

JSR 

FLD1R 

JSR 

FADD 

LDA 

FCHRFLG 

ORA- 

FRO 

STA 

FRO 

LDA 

RADFLG 

BEQ 

ATNOUT 


i ARCSIN(FRO) = ARCTAN < FRO/SQRT <FRO*FRO) ) 
i FR1 <:- SORT ( 1-FR0*FR0 ) 


; 1 FRQL_=l1 

i FRO <- 90 OR PI/2 

; RETURN FRO = +1. ARCSIN(+1) = 90 OR PI/2 
; FRO = -1. ARCSIN ( -1 ) = -90 OR -PI/2 


ATARI BASIC 5.9 4-5-79 (MODIFIED) 
; ARCTAN(FRO) 

; SIGN FLAG OFF 

; AND TRANSFORM FLAG 


i CHECK X VS 1.0 
; X<1 - USE SERIES DIRECTLY 
iX>=l - SAVE SIGN & TRANSFORM 

; REMEMBER SIGN 


; FORCE PLUS 


; CHANGE ARG TO <X-1)/<X+1) 

ARCTAN ( X ) , -1<X<1 BY SERIES APPROX 

; CAN'T USE FTEMP BECAUSE SATAN IS CALLED BY OTHER ROUTINES WHICH USE__IX 

; X->FTEMP (CALC, NOT SHEP REG) 

; X*X -> FRO _ - 

j OVERFLOW (ERROR ALREADY REPORTED) 


; P(X*X) 
; ERROR 


Y*P t ) __ 

OVERFLOW (ERROR ALREADY REPORTED SO RETURN) 
WAS ARG XFORMED 

ML 

YES-ADD ARCTAN(l) = PI/4 


; GET ORG SIGN 


; ATAN(-X) = -ATAN(X) 


i RAD OR DEG 
; RAD - FINI 




COLLEEN CALCULATOR. BY C SHAW 






i 

CLC 

ADC 

#P I0V18-FPREC 





i 

TAX 

I 

B 1 76 

A2 

36 



LDX 

#P I0V18 i 

B178 

4C 

B4 

ad 


JMP 

LDY1DV —i- 

B17B 


ATNOUT 



B17B 

4C 

86 

A9 


JMP 

CRYCHK 


DIVIDE BY PI/180 OR PI/200 
ABOVE IS USED IF GRADS ALLOWED 
FRO O FRO/ (WHATEVER) 








COLLEEN CALCULATOR , BY C SHAW 


COLLEEN CALCULATOR, BY C SHAW 




B17E 




SPOLAR i ->RECT 

Y=THETA X=R NEW Y=R*S IN < THETA > NEW X=SQRT ( SQU < R ) -SQU ( Y ) ) 

B 17E 

A9 

7D 


LDA 

#Z POLAR 


B 180 

20 

FO 

9B 

JSR 

PUTMSG 

DISPLAY “ ->REC T ANGULAR " 

B 183 

20 

55 

9F 

JSR 

FSTOT 

SAVE X=R 

B18& 

20 

9D 

9F 

JSR 

FPOPO 

LOAD THETA--=Y 

B 189 

20 

6A 

BO 

JSR 

SSIN 

SIN(THETA) 

B18C 

20 

4F 

9F 

JSR 

FLD1T j RELOAD R 

B 18F 

20 

97 

A8 

JSR 

SFMUL ; Y = R*SIN(THETA) 

B 192 

20 

BB 

9F 

JSR 

FPUSHO i SAVE NEW Y ON STACK 

B 195 

20 

5A 

A8 

JSR 

SSQUAR 

Y*Y 


20 

BB 

9F 

-1CP 

FPUSHO 

SAVE Y*Y 

0 170 

B19B 

fiL W 
20 

U U 

49 

9F 

JSR 

FLDOT 

LOAD R 

B19E 

20 

5A 

A8 

JSR 

SSQUAR 

R*R 

B1A1 

20 

86 

9F 

JSR 

FP0P1 

RELOAD Y*Y 

B1A4 

20 

83 

A9 

JSR 

SFSUB 

R*R - Y*Y 



# 

i 

1 


FROM SHEPARDSON ATARI BASIC 5.9 4-5-79 (MODIFIED) 
USES NEWTON-RAPHSON ITERATION 
F(Y) = V*V - X 


j 


FPRIME(Y) = 2*Y 



i 


YCI+13 * YC I 3 - 

F < YC I 3 ) / FPR IME ( YC I 3 ) = YCI3 + . 5*< < X/YC I 3 >-YC I 3 > 

B 1 A7 

SSQRT 



_j XO-SQRT(X) 

B1A7 A9 00 


LDA 

#0 


B1A9 85 FI 


STA 

DIGRT 


B1AB A5 D4 


LDA 

FRO 


B 1 AD 10 06 


BPL 

SQRO 


B1AF 20 95 A3 


JSR 

BITERR 

i <0 => ERROR 

B1B2 20 49 B2 


JSR 

SABSVA 

i TAKE ABS VALUE AND DO SQUARE ROOT ( ABSVAL LOADS FRO INTO A) 

B1B5 

SQRO 




B1B5 C9 3F 


CMP 

#*3F 


B1B7 FO 17 


BEQ 

FSQR 

iX IN RANGE OF APPROX - GO DO IT TO IT 

B1B9 18 


CLC 



B 1 BA 69 01 


ADC 

#1 


B1BC 85 FI 


STA 

DIGRT 

NOT IN RANGE - TRANSFORM 

B1BE 85 EO 


STA 

FR1 

i MANTISSA = 1 

B ICO A9 01 


LDA 

#1 


B1C2 85 El 


STA 

FR 1 + 1 


B1C4 A2 03 


LDX 

#FPREC-3 

i CHANGED 5/11/79 FROM FPREC-2 

B1C6 A9 00 


LDA 

#0 


r i rfl 

SQR 1 




O 1LO . , , 

B1C8 95 E2 


STA 

FR 1+2, X 


B1CA CA 
B1CB 10 FB 


DEX 

BPL 

SQR1 


B1CD 20 28 DB 


JSR 

FDI V 

i X/100**N 

B1D0 

FSQR 



i SQR < X ) 0. 10X0 

n i nrv ao f\ju 


LDA 

#6 


alLfU n7 uo 

— ■■■— —pfffH 

TT O 


B1D2 85 EF 


STA 

ESIGN 


B1D4 A2 E6 


LDX 

#FSCR 


B1D6 AO 05 


LDY 

#FSCR/256 


B1D8 20 A7 DD 


JSR 

FSTOR 

; STASH X IN FSCR 

B1DB A9 02 

d , nn nA ao 


LDA 

icd 

#2 

TKJT8UR 

i 2-X 

OlUU cLU /U ft? 

B1E0 A2 E6 


WOH 

LDX 

X IM 1 ^17 0 

#FSCR 


B1E2 AO 05 


LDY 

#FSCR/256 


B1F4 20 C5 AD 


JSR 

LD1MUL 

i X*(2-X) 1ST APPROX 

B1E7 

SQRLP 




B1E7 A2 EC 
r i po Ari ns 


LDX 
L DY 

#FSCR 1 
#FSCR 1/256 

i DON'T USE FTEMP BECAUSE SSQRT IS USED BY OTHER ROUTINES 

B1EB 20 A7 DD 


L.U I 

JSR 

FSTOR 

; Y->FSCR 1 



COLLEEN CALCULATOR, BY C SHAW 


B1EE 20 B6 00 
B1F1 A 2 E6 

JSR 

LDX 

FMOVE 

#FSCR 

i Y— >FR 1 

B1F3 AO 05 

LDY 

#FSCR/256 


B1F5 20 89 DD 

JSR 

FLDOR 


B1F8 20 28 OB 

JSR 

FDI V 

i X/Y 

B1FB A2 EC 

LDX 

#FSCR 1 


B1FD AO 05 

LDY 

#FSCR 1/256 


BIFF 20 98 DD 

JSR 

FLD1R 


B202 20 60 OA 

JSR 

FSUB 

; <X/Y)-Y 

B205 A2 6C 

LDX 

#FHALF 


B207 AQ DF 

LDY 

#FHALF/256 


B209 20 C5 AD 

JSR 

LD1MUL 

; . 5* ( ( X / Y ) -Y ) =DELT AY 

B20C A5 D 4 

LDA 

FRO 

i DELTA 0 

B20E F 0 OE 

BEQ 

SQRDON 


B210 A2 EC 

LDX 

#FSCR 1 


B212 AO 05 

LDY 

#FSCR 1/256 


B214 2Q 98 DD 

JSR 

FLD1R 


B21 7 20 66 DA 

JSR 

FADD 

; Y=Y+DELTA Y 

B21A C6 EF 

DEC 

ESIGN 

; COUNT & LOOP 

J321C 10 C9 

BPL 

SQRLP 


B21E 

B21E A2 EC 

SGRDON 

LDX 

#FSCR 1 

i DELTA = 0 - GET Y BACK 

B220 AO 05 

LDY 

#FSCR 1/256 


B222 20 89 DD 

JSR 

FLDOR 


B225 A5 FI 

9 

LDA 

DIGRT 

WAS ARG TRANSFORMED? 

B227 FO 20 

BEQ 

SQROUT 

; NO FINI 

B229 38 
B22A E9 40 

SEC 

SBC 

#*40 



B22C 4A 
B22D 18 
B22E 69 40 
B230 85 EO 
B232 A5 Fl_ 


LSR 

CLC 


; YES - TRANSFORM RESULT TO MATCH 
; DIVIDE EXP BY 2 


ADC 

STA 

LDA 


B234 6A 
B235 A9 01 
B237 90 02 


ROR 

LDA 

BCC 


#$40 

FR1 

DIORT 

A 

#1 

SQR2 


B239 A9 10 
B23B 

B23B 85 El 


sqr; 


LDA 


STA 


#$10 


FR 1 + 1 


; MANTISSA * 1 
l WAS EXP ODD OR EVEN 
; ODD “ MANT = 10 


B23D A2 03 
B23F A9 00 
B241 


LDX 

LDA 


#FPREC- 

#0 


i CHANGED 5/11/79 FROM FPREC-2 


SGR3 


B241 95 E2 
B243 CA 
B244 10 FB 
B246 20 97 A8 
B249 

0242 

B249 A5 D4 
B24B 29 7F 
B24D 85 D4 
B24F 60 


SQROUT 

SABSVA 


STA 

DEX 

BPL 

JSR 


LDA 

AND 

STA 

RTS 


FR l+2i X 


SQR3 
SFMUL 


; CLEAR REST OF MANTISSA 


iSQR(X) = SQR<X/100**N> * <10**N> 



COLLEEN CALCULATOR, BY C SHAW 



Moore Business Forms, Inc. sv )4!2T LTL-2 




COLLEEN CALCULATOR, BY C SHAW 


LDY 

JSR 

#C365/256 

FLD1R 


JSR 

SFMUL 


JSR 

FP0P1 

i DD 

JSR 

SFADD 

i 365*YYYY + DD 

LDX 

flMODFAC 


LDY 

JSR 

JSR 

#M0DFAC/256 

FLD1R 

FPUSHO 

; LOAD MM-l 

LDA 

JSR 

JSR 

#31 

PSETO 

SFMUL 

i 31* ( MM-l ) 

JSR 

JSR 

FP0P1 

SFADD 

; 365*YYYY + DD 

LDA 

CMP 

MODFAC+1 

#2 

i JAN OR FEB? 


BCS 

LDA 

SED 

SBC 

STA 

3CS 

LDA 

SBC 

STA 


OAYS15 


DAYS20 


CLD 


J SR 


LDA 

JSR 

JSR 

JSR 

JSR 


JSR 

JSR 

JSR 

JSR 

LDA 

JSR 

JSR 

LDX 

LDY 

JSR 

JSR 


DAYS20 

FTEMP+2 

# 1-1 

FTEMP+2 

DAYS15 

FTEMP+1 

# 1-1 

FTEMP+1 


; NO. 

; YES. YYYY O YYYY-1 


i CARRY IS CLEAR 


FMOVE 


DAYTMP 

PSETO 

SCHGSG 

SFADD 

FPUSHO 


i ADD - ( DAYTRM, (MM-l ) ) 


LDA 

#4 

JSR 

PSETO 

JSR 

FMOVE 

JSR 

FLDOT 

JSR 

SFDIV 

JSR 

SINTEG 

JSR 

FP0P1 

JSR 

SFADD 

JSR 

FPUSHO 

LDA 

#100 


;ADD INT ( YYYY/4) 




i SUB INK . 75C INTC ( YYYY/ 100 ) + 1 3 ) 


PSETO 


FMOVE 

FLDOT 

SFDIV 

#1 

INTADD 

SINTEG 

#CPT75 

#CPT75/256 

FLD1R 

SFMUL 


i YYYY 
; YYYY/ 100 

; l+YYYY/100 



COLLEEN CALCULATOR , BY C SHAN 


A/oorc Business Forms, Inc. sv 1412T ITL-2 


JSR 

JSR 


FLD1R 

SFMUL 


COLLEEN CALCULATOR , BY C SHAW 


J 


* * 


JSR 

JSR 


SINTEG 

FMOVE 


HYPSUB 


JSR 
JMP 
, PAGE 


JSR 


FPOPO 

SFSUB 


FPUSHO 


; FRO <- EXPE(X), FRIO EXPE(-X) 
FOR COSHi SINH 


JSR 

JSR 

JSR 


SCHGSG 

SEXPE 

SXCHGY 


; EXPE(-X) 


SCOMBI 


JSR 

JMP 


JSR 

JSR 

LDX 

LDY 

JSR 


SEXPE 

FPOP1 


FPUSHO 

SFACTO 

#FTEMP2 

#FTEMP2/256 


! EXPE < X ) 


iY COMBI X = C ( N; R ) = N ! / ( R ! < N-R ) ! ) = P(N,R)/R! = (Y PERMU X)/X! 


JSR FPOPO 

JSR SPERMU 

LDX #FTEMP2 

LDY #FTEMP2/256 

JSR FLD1R 

JSR_ SFD I V 


; RELOAD X ! 





JMP 

SROUND 






SCOSH 

. JSR 

HYPSUB 


COSH < X ) <- (EXPE(X>+EXPE(-X) )/2 
FRO <- EXPE ( X > j FR1 <- EXPE(-X) 





JSR 

SFADD 


EXPE ( X ) + EXPE ( —X ) 





JMP 

DIVTWO 


DIVIDE BY 2 AND RETURN 




SDAY 

JSR 

DAYSUB 


MMDD. YYYY -> FACTOR 





BCS 

SCHIO 

_ _J 

ERROR => RETURN IMMEDIATELY 





JSR 

CLNUM 


CLEAR TOKBUF 




/ 

LDA 

#7 


FACTOR <- FACTOR MOD 7 





JSR 

INTMOD 







LDA 

FRO+1 


0-6 





ASL 

A 







ADC 

FRO+1 


3* (FACTOR MOD 7) 





TAX 



MOVE DAY OF WEEK CHARS TO END OF TOKBUF 





LDY 

#NUMLEN-3 






SDAYLP 

LDA 

DAYTBLi X 







STA 

TQKBUF, Y 







INX 








I NY 








CPY 

#NUMLEN 







BNE 

SDAYLP 







JSR 

DAYDSP 


DISPLAY DAY OF WEEK IN NUMBER LOC 





JMP 

DAYCOM 


DISPLAY "***" 




SDBD 

JSR 

DAYSUB 


DAYS BETWEEN DATES 
Y DBD X = DAYSUB (Y) - DAYSUB ( X ) 




_ _ . 

BCS 

SFDON 


ERROR => RETURN 





JSR 

SXCHGY 







JSR 

DAYSUB 


DAYSUB Y 





BCS 

SFDON 


ERROR => RETURN 





JSR 

FPOP1 





.L EEN CALCULATOR * BY C SHAW 




JMP 

SFSUB 




SDI V 





JSR 

MEMSUB 

i MEM <- MEM/X 



JSR 

SFDIV 




JMP 

SSUM10 




SDMS 


i DMS -> DECIMAL DEGREES 



LDA 

#ZDMS 




LDX 

#100 

* NUMERATOR/ MOD BASE 



LDY 

#60 

i DENOMINATOR 



BNE 

DEGSUB 

i JMP 



SDCDEG 


iDFTIMAl nFC — HMQ 



LDA 

#ZDCDEG 




LDX 

#60 




LDY 

#100 




DEGSUB 





STX 

XSAVE2 




STY 

YSAVE2 




JSR 

PUTMSG 

; DISPLAY MESSAGE -> DMS 



i INT(X) 

+ (FRACT(X) 

MODFAC ( 1 /XSAVE2 ) > /YSAVE2 + ( 



- jsa 

FMOVE 




JSR 

SINTEG 




JSR 

FPUSHO 

i SAVE I NT < X ) 



_ JSR 

FMQVE2 




JSR 

SFRACT 




JSR 

FPUSHO 

i SAVE FRACT(X) 




LDA 

XSAVE2 




JSR 

PSETO 

i INT -> FP 



JSR 

JSR 

SRECIP 

SMOD 




JSR 

FPUSHO 

i rKftt I k a ; MUD ( 1 / XSAVE2 ) 
; SAVE MOD 



LDA 

XSAVE2 




-JSR 

PSETO 



JSR 

JSR 

LDA 


SSQUAR 

FPUSHO 

YSAVE2 


JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
JSR 

_ 

JSR 

JSR 

JMP 


PSETO 
SSQUAR 
SPDI V__ 


SPMUL 

SPADD 

FPUSHO 


i XSAVE2-'2/YSAUE2-'-2 


YSAVE2 

PSETO 

FMQVE 


; MULTIPLY BY MOD 
; ADD INT(X) 

; SAVE RESULT ON STACK 


FLDOM 

SFDIV 

SPADD 


SASINH 


LDA 


FRO 


; LOAD MODFAC 
; MODFAC /YSAVE2 

;ADD TO PREVIOUS RESULT & RETURN 


iARCSINH(X) = SIGN(X) * LN ( ABSVAL ( X ) +SQRT ( SQUARE ( X ) +i ) ) 


PHA 

JSR 

JSR 


SABSVA 

FPUSHO 


; SAVE SIGN 
; ABSVAL ( X ) 


JSR 

LDA 

JSR 


SSQUAR 

#1 

INTADD 


JSR 

PLA 

BPL 

JMP 


AHYPSB 

B INI 00 
SCHGSG 


i X*X 


; X*X+1 


; LN ( X+SQRT ( X*X+i ) ) 


j RETURN 

i IF SIGN IS NEGATIVE THEN ARCSINH(X) < 0 


COLLEEN CALCULATOR , BY C SHAW 


BPL 

JMP 


BIN 100 
SCHGSG 


i RETURN 

I IF SIGN IS NEGATIVE THEN ARCSINH(X) < 0 


COLLEEN CALCULATOR. BY C SHAW 


SATANH 




DIVTWO 


SB IN 


BIN100 
SAC OSH 


AHYPSB 


SGRAD 


SPERCE 


JSR 

LDA 

JSR 

JSR 

LDA 

JSR 

JSR 

JSR 

JSR 

LDX 

LDY 

JMP 

LDA 

JSR 

LDA 

CMP 

BCC 

LDA 

JSR 

LDA 

STA 

LDA 

STA 

LDA 

JSR 



RTS 

JSR 

JSR 

LDA 

JSR 

JSR 

JSR 

JSR 

JSR 

JMP 

LDA 

JMP 

JSR 

JSR 

LDA 

BEQ 

DEC 

RTS 

JSR 

JSR 

JSR 

JSR 

JSR 

JSR 

JSR 


FPUSHO 

#1 

INTSUB 

SXCHGY 

#1 

INTADD 

FP0P1 

SFDIV 

SLN 

#FHALF 

#FHALF/256 

LD1MUL 

#2 

S0CT10 

BITINT 

#17 

BIN100 
#B I MSG 
ERRSUB 

#'l 

TOKBUF+NUMLEN-2 

#'6 

T OKB UF +NUMLEN- 1 
#16 

SBITS2 


i ARCTANH ( X ) 


1-X 


<LN< ( 1+X )/( 1-X ) ) )/2 








1 + X 


( l+X)/( 1-X) 

LN ( ( l+X)/< 1-X) ) 
MULTIPLY BY 1/2 


(DIVIDE BY 2) 


iLOAD FR1 AND MULTIPLY 
i BASE 2 OR BINARY 

; CHANGE DHQFLG. STATUS 


* BINARY REQUIRES 16 BITS OR LESS 


FPUSHO 

SSQUAR 

#1 

INTSUB 

SCHGSG 

SSQRT 

FP0P1 

SFADD 

SLN 

#GRADON 

SRAD10 

FMVPOP 
SFMUL 
FRO 
SPE10 
FR Q 


FMOVE 

FLDOS 

SFSUB 

SFACTO 

SXCHGY 

SFACTO 

FP0P1 


* ARCCOSH ( X ) - LN( X+SQRT ( SQUARE < X ) — 1 > ) 


i X*X 


; 1-X*X 
i X*X-1 

j FRO <- LN ( TOS + SORT (FRO)) 

; SQRT ( X*X-1 ) 


i X+SQRT ( X*X-1 ) 
i LN( X+SQRT (X*X-1 ) ) 
i SET GRAD MODE 


i YXX - ( X*Y ) / 100 


(ORDERING IS UNIMPORTANT) 





lY PERMU X » P(N.R) * N!/(N-R)! = Y ! ✓ ( Y— X ) 1 


i Y-X 
i (Y-X) • 
iLOAD Y 
i Y! 

i LOAD < Y-X ) ! 










COLLEEN CALCULATOR, BY C SHAW 


SPRD 


SRANDO 


SR AN 10 


SSINH 


SSUB 


STAN H 


JSR 

SFDIV 

JMP 

SROUND 

JSR 

MEMSUB 

JSR 

SFMUL 

JMP 

SSUM10 

LDA 

RPNALG 

BNE 

SRAN10 

JSR 

FPUSHO 

LDA 

RANDOM 

STA 

FRO 

LDA 

#0 

STA 

FRO-*- 1 

JMP 

IFP 

JSR 

HYPSUB 

JSR 

SFSUB 

JMP 

DIVTWO 

JSR 

MEMSUB 

JSR 

SFSUB 

JMP 

SSUM10 

JSR 

FPUSHO 

JSR 

SSINH 

JSR 

SXCHGY 

JSR 

SCOSH 

JMP 

SPDIV 

. END IF 



i X O 


i MEM O MEM*X 


RANDOM NUMBER FROM 0 TO 65535 


j IF RPN PUSH PREVIOUS # AS IN SPI 


i SINH ( X ) O < EXPE ( X ) - EXPE(-X)) / 2 
i FRO <- EXPE ( X ) # FR1 O EXPE(-X) 
i EXPE(X) - EXPE(-X) 

» DIVIDE BY 2 AND RETURN 
i MEM <- MEM-X 


i TANH ( X ) O SINH ( X ) /COSH ( X ) 


COLLEEN CALCULATOR , BY C SHAW 



B250 

B250 

A5 

C6 


SFV 

LDA 

ENTFLG 

i FV = FUTURE VALUE 

- - - — - - -■ - - - 1T - . , . 

f 

B252 

FO 

ID 



BEQ 

SFV05 



B254 

A5 

C5 



LDA 

DUEFLG 



B256 

10 

OB 



BPL 

SFV20 

j ANNUITY => SKIP 






# 



COMPOUND INTEREST FV=PV* ( 1+1 )"N 


B258 

20 

DB 

AD 


JSR 

Z 1 IN 

; < 1 + 1 ) ^ N 


B25B 

A9 

09 



LDA 

#9 

; PV 


B25D 

20 

E6 

A3 


JSR 

MEMMUL 

; FRO <- FRO * MEM ( A ) 


B260 

4C 

71 

B2 


JMP 

SFV05 

; STORE NEW FV 


B263 




SFV20 



; ORDINARY ANNUITY FV=PMT* ( ( 1 + 1 ) *N-1 ) /I 






I 



i ANNUITY DUE FV=ABOVE * ( 1+1 ) 


B263 

20 

El 

AD 


JSR 

Z1 INM1 

; ( ( 1+1 )^N-1 )/I 


B266 

20 

EA 

AD 


JSR 

DIVI 



B269 

A9 

08 



LDA 

#8 

; PMT 


E26B 

20 

E6 

A3 


JSR 

MEMMUL 



E26E 

20 

89 

A8 


JSR 

ZMUL1I 

; IF ANNUITY DUE THEN FRO <- FRO * (1 + 1) 


B27 1 

A9 

05 


SFV05 

LDA 

#5 



B273 

4C 

4A 

AE 


JMP 

MEMSTO 

; ENTER 






i COSINE ROUTINE — ADD 90 OR 

PI/2 TO FRO TO DO SIN 


B276 

B276 

20 

DB 

BF 

SCOS 

JSR 

SINMOD 

; TAKE ANGLE MOD 2*PI, 360 OR 400 


B279 

20 

FI 

A3 


JSR 

PIOVL 

; SET UP X & Y REGS TO LOAD PI/2 90 OR 100 


B27C 

20 

98 

DD 


JSR 

FLD1R 

PUT PI/2 OR 90 INTO FR1 


B27F 

20 

6A 

A9 


JSR 

SFADD 

FRO=FRO + PI/2 (OR 90) 


B282 

4C 

6D 

BO 


JMP 

SSIN2 






tLEEN CALCULATOR. BY C SHAW 


BAOO 40 03 14 
BA03 19 92 65 
BA 06 

BA06 BD 03 54 
BA09 14 99 39 
BAOC 3E 01 60 
BAOF 44 27 52 
BA12 BE 46 81 
BA15 75 43 55 
BA18 3F 07 96 
BA1B 92 62 39 
BA1E BF 64 59 


BA21 64 08 67 



BA24 40 01 57 
BA27 07 96 32 

RADPI2 

. BYTE 

BA2A 40 90 00 
BA2D 00 00 00 


. BYTE 

BA30 42 06 55 

; 

C65536 

. BYTE 
. BYTE 

BA33 36 00 00 
BA36 3F 01 74 
BA39 53 29 25 

PI0V18 

. BYTE 

BA3C 40 01 80 
BA3F 00 00 00 

< 

C1PT8 

. BYTE 
. BYTE 

BA42 

BA42 40 01 00 
BA45 00 00 00 

LENGTH 

ONE 

. BYTE 

BA48 3F 02 54 


. BYTE 


BA4B 00 00 00 
BA4E 3F 30 48 
BA51 00 00 00 
BA54 3F 91 44 
BA57 00 00 00 
BA5A 41 16 09 
BA5D 34 40 00 
BA60 3F 01 00 
BA63 00 00 00 
BA66 41 10 00 
BA69 00 00 00 


BA6C 

BA6C 3 F 02 83 
BA6F 49 52 31 
BA72 3F 45 35 
BA75 92 37 00 
BA78 3E 10 00 
BA7B 00 00 00 

BA7E 

BA7E 3F 16 66 
BA81 66 66 67 
BA84 3F 50 00 


I DAI A 

THE FOLLOWING TABLES MUST NOT CROSS PAGE BOUNDARIES 
♦-•BAOO < DATA MUST BE AT END OF MEM 

PICONST .BYTE *40. *03. • 1 4. *1 5. *92. *65 iPI » 3.14159265 

SCOEF 

.BYTE *BD. *03. *54. *1 4. *99. *39 < -. 00000354 1 49939 

OVIL *3E. *01 . *60. *44, *27. *52 < 0. 0001 60442752 

.BYTE *BE, *46, *81, *75, *43. *55 <-.004681754355 
. BYTE *3F, *07, *96, *92, *62, *39 < 0. 0796926239 
. BYTE *BF, *64, *59, *64, *00, *67 < 6459640867 

*40, *01, *57, *07, *96, *32 <PI/2 - 1.570796327 
*40, *90, 0, 0, 0, 0 <90 (DEGREES) 


*41, *01, 0, 0, 0, 0 
*42, *06, *55, *36, 0, 0 


< 100 (GRADS) 

<65536 IN FP (USED IN BINFP) 


*3F, *01 , *74, *53, *29, *25 < PI/180 » .0174532925 DEG->RAD 

*3F, *01 , *57, *07, *96, *33 < PI/200 « .0157079633 
*40, *01 , *80, O, 0, 0 <1.8 (USED IN SCELSI ) 


*40, *01, 0, 0, 0, 0 


. BYTE *3F, *30, *48, 0, 0, 0 
.BYTE *3F, *91, *44, 0, 0, 0 


< M -> M *1 EXACTLY 

< INCHES->M » . 0254 EXACTLY 

< FEET . 3048 

< YARDS .9144 


.BYTE *41, *16, *09, *34, *40, 0 < MILES 1609.344 


. BYTE *3F, *01, 0, 0, 0, 0 
.BYTE *41, *10, 0, 0, 0, 0 
.BYTE *41 , *18, *52, 0, 0, *04 


i CM 
< KM 


. 01 


1000 


< NAUTMI 1852. 000004 ???????? 


MASS 


. BYTE *3F, *02, *83, *49, *52, *31 < OZ->KG « . 02834952313 (NOT EXACT) 

.BYTE *3F, *45, *35, *92, *37, 0 < LB .45359237 ?? 

.BYTE *3E, *10, 0, 0, 0, 0 


; GM 


. 001 


EXACTLY 


VOLUME 


.BYTE *3F, *16, *66, *66, *66, *67 ; TSP->FLOZ * .1666666667 
BYTE *3F, *50, 0, 0, 0, 0 < TBSP . 5 EXACTLY 


COLLEEN CALCULATOR, BY C SHAW 




en Forim, l#vc. iv 14'TT ltl-2 


V I 


i 

I 

# 


BA7E 




VOLUME 




BA7E 

3F 

16 

66 


. BYTE 

$3F# $16# $66# $66# $66# $67 # TSP->FLOZ = . 1666666667 


BA81 

66 

66 

67 





BA84 

3F 

50 

00 


. BYTE 

$3F# $50# 0# 0# 0# 0 # TBSP . 5 EXACTLY 


COLLEEN CALCULATOR, 

BY C SHAW 




BA87 

00 

00 

00 





RASA 

40 

08 

00 


. BYTE 

$40# 8, 0# 0# 0# 0 # CUPS 8 


BA8D 

00 

00 

00 





BA90 

40 

32 

00 


. BYTE 

$40, $32# 0# 0# 0# 0 # QUARTS 32 


RA93 

00 

00 

00 





BA96 

41 

01 

28 


. BYTE 

$41# $01# $28, 0, 0# 0 ; GAL 128 


BA99 

00 

00 

00 





RA9C 

40 

33 

81 


. BYTE 

$40, $33, $81# $40, $22, $66 # LITERS 33.81402266 NOT EXACT? 


BA9F 

40 

22 

66 





BAA2 

20 

20 

20 

INTCHR 

. BYTE 

" BALFV ", ' I +32# " N " ; FIRST PART OF INTEREST DISPLAY 


BAA5 

42 

41 

4C- 





BAA8 

46 

56 

20 





BAAB 

69 

20 

20 





BAAE 

4E 

20 

20 





BAB 1 

50 

4D 

54 

PBUFF 

. BYTE 

"PMTPV " # INTEREST DISPLAY (END OF INTCHR) AND "P" FOR PRINTER 

OPEN 

BAB4 

50 

56 

20 





BAB7 

4E 

57 

54 

STACHR 

. BYTE 

"NWTN X X"2Y Y"'2X*Y" 


BABA 

4E 

20 

20 





BABD 

58 

20 

20 





BACO 

58 

5E 

32 





BAC3 

59 

20 

20 





BAC6 

59 

5E 

32 





BAC9 

58 

2A 

59 









i 


SPECIAL SINGLE CHAR COMMANDS 


BACC 

2A 

2F 

2B 

TOKCHR 

. BYTE 

"*/+-( )=-'•!■/.", UPAROW, DNAROW, LFAROW# RTAROW 


BACF 

2D 

28 

29 





BAD2 

3D 

5E 

21 





BADS 

25 

1C 

ID 





BAD8 

IE 

IF 






BADA 




TOKEND 








; 


TOKEN NUMBERS FOR TOKCHR COMMANDS 


BADA 

86 

87 

88 

TOKTBL 

. BYTE 

STAR# SLASH# PLUS, MINUS, LPAR, RPAR, EQUAL, POWER, FACTOR, MOD 


BADD 

89 

8A 

8B 





BAEO 

8C 

51 

25 





BAE3 

41 











# 


BSTEP, SSTEP, DELETE, INSERT ARE PART OF BOTH TOKTBL & SPCTBL 






i 


SPECIAL COMMANDS IN STORE PROGRAM MODE (EXECUTED IMMEDIATELY# 

NOT STORED) _ 

BAE4 

OA 

6C 

IF 

SPCTBL 

. BYTE 

BSTEP, SSTEP# DELETE, INSERT, CLPROG, ZEND, PROGRAM, LIST, SAVE# LOAD# R3T 


BAE7 

RAFA 

34 

S3 

12 

3A 

20 

65 





u nun 

BAED 

3C 

u n 

63 






BAEF 




SPCEND 




BAEF 

4B 



KBUFF 

. BYTE 

"K" # K FOR KEYBOARD OPEN ft;-, /ML.#.... 



V 

V 


BAFO 20 2A 2A 
BAF3 2A 

BAF4 11 17 05 
BAF7 01 13 04 
BAFA 1A 18 03 
BAFD 58 59 32 
BBOO 33 34 35 
BB03 36 37 38 
BB06 39 

BB07 03 EF BA 
BBOA 04 
BBOB 03 B 1 BA 

BBOE 08 

BBOF 03 00 05 


STARMS . BYTE 




; GRAPHICS CHARS FOR SCREEN DISPLAY -64 => CONTROL KEY HIT (USED IN PTLIN1 ) 

CHRTAB . BYTE 'Q-64, 'W-64, 'E-64, 'A-64# 'S-64# 'D-64, 'Z-64* 'X-64# 'C-64 


CHTAB2 .BYTE M XY23456789" 


i COM# BAL# BAH# AX1 FOR IOCB 

CIOTAB BYTE OPEN# KBUFF, KBUFF/256# INPUT i OPEN K: FOR INPUT 


STACK LABELS 


BYTE OPEN# PBUFF. PBUFF/256# OUTPUT 


# OPEN P: FOR OUTPUT 


V 


. BYTE 


OPEN, TOKBUF # TOKBUF/256 


# OPEN TIOCB 





Moore Business Forms, Inc. sv M12T IT l 2 


I 


COLLEEN CALCULATOR/ BY C SHAW 


i EXPSC 


IF 


. BYTE 
. BYTE 
. BYTE 
. BYTE 
... BYTE 
. BYTE 
. BYTE 
.BYTE 
. BYTE 


ASMBL ; DON'T ASSEMBLE 

MY EXPERIMENTAL SCOEF FOR SIN/ COS 


(9 TERMS INSTEAD OF 6) 


$3A, $06/ $06/ $69, 

$BB, $06, $68, $80, 

$3C, $05, $69, $21, 

$BD, $03, $59, $88, 

$3E, $01, $60, $44, 

$BE, $46, $81, $75, 

$3F, $07, $96, $92, 

$BF, $64, $59, 

$40, $01, $57, $07, $96, $32 


= -(PI/2K15/15! 

<81/2)^13/13! 

- <PI/2)-'Tl/ll ! 


C. 1 OOOO . BYTE $42, $01, 0, 0,0, 0 


; C365 
; CPT75 
DEGREE 


OFT 


BYTE 

BYTE 

BYTE 

BYTE 

BYTE 


$41, $03, $65, 0, 0, 0 
$3F, $75, 0, 0, 0, 0 


; 6. 06693573 IE- 12 
j -6. 688035 123E- 10 
; 5. 692172922E-08 = 
; 00000359884324 
i 0. 000160441185 
; 004681754155 
; 0. 0796926262 


; PI/2 = 1. 570796327 

,10000 (USED IN DAY CALCULATIONS) 
; 365 

; . 75 = 3/4 


BYTE 

BYTE 

BYTE. 


$3F, $90, 0, 0, 0, 0 ; 180/200 = . 9 GRAD -> DEG 

$40, $57, $29, $57, $79, $51 ; 180/PI = 57.29577951 RAD_-> DEG 

$3F, $30, $48, 0, 0, 0- ;FT->M —3048 EXACTLY- 

$40, $01, $60, $93, $44, 0 » MI->KM 1.609344 EXACTLY 

$3F, $45, $35, $92, $37, 0 ; LB~>KG . 45359237 

$3F, $26, $41, $72, $05, $24 j L->GAL . 2641720524 


ONE 


BYTE $40, $01, 0, 0, 0, 0 


; ONE 


MY EXPERIMENTAL P10C0F FOR EXP FUNCTION 


i P10C0F 


BYTE 

BYTE 


$3D, $09, $79, $28, $29, $75 ; . 000009792829753 = < LN ( 10 ) / 2 > ' s 9/9 ! 

$3D, $76, $55, $34,j$ 94, $63 i . 00007655349463 - < LN < 10 ) /2 ) 8/S ! 

.BYTE $3E, $05, $31, $94, $81, $65 i . 000531948165 
.BYTE $3E, $32, $34, $31, $01, $36 > . 003234310136 

J3YTE $3F, $01, $68, $55,- $71, $65 i . 0168557165 

BYTE $3F, $07, $32, $03, $44, $68 ; . 0732034468 
. BYTE $3F, $25, $43, $34, $82, $44 i . 2543348244 
. BYTE $3F, $66, $27, $37, $26, $38 ; . 6627372638 


<LN< 10) /2)^4/4 


BYTE $40, $01, $15, $12, $92, $55 
. BYTE $3F, $99, $99, $99, $99, $99 


1. 15129255 
999999999 


= < LN <10 L/2 ) "'2/2 ! 
= LN < 10 ) /2 
APPROX. 1 


- MAXDAY BYTE ^*30. ?5Sl ^30^*31, f + *30. 1 + *U. i*«l. t~30. l*«i. ^30^*3! 

: • I Yt f 0, 0^: 3, 4.4, 5. 5. 5. 6, 6. 7 , # OF DAYS LESS THAN 31 /MONTH FOR EACH hONTH 

i DAYTBL .BYTE "SATSUNMONTUEWEDTHUFR I" 

. END IF 










• »• Fori 


COLLEEN CALCULATOR. BY C SHAN 


BB 13 
BB1 3 49 
BB 16 A4 
BB 1 9 79 
BB1C A7 
BB1F 05 
BB22 B 1 
BB25 EO 
BB27 90 
BB2A A9 
BE2D j 
BB30 t 
BB33 f 
BB36 {■ 
BB39 7 
BB3C A 
BB3F 4 
BB42 A 
BB45 F 


JMPTBL 


B2 9C 
18 A 7 
> A7 7D 
’ C8 A8 
B 1 IB 
18 A E 
A4 

A9 40 
9F AB 
AD 82 
84 AB 
A5 C9 
F5 A9 
A7 98 
BO A 1 
AB F3 
7F A5 
BC 76 


BB4B 69 AD 04 
BB4E A7 53 A7 
BB51 FE AB 


BB53 93 AA OB 
BB56 AE 00 98 
BB59 07 98 CB 


BB5C AD E9 A5 
BB5F OF AE 5D 
BB62_A5_£B._AB_ 


BB65 7 A A9 35 
BB68 AD 
J£i>9 50 B2 F7 


BB6C AD FB AD 
BB6F 71 AD 57 
BB72 AD 40 AB 


BB75 08 A7 54 
BB78 AE 31 AD 
BB7B 34 AC 83 


BQ7E A6 4B AD 
BB81 45 AD 75 
BB84 AD 53 AD 


BB87 22 AA B3 
BB8A A6 C7 AC 
BB8D BE A6 DA 


BB90 A7 2D AD 
BB93 3D AD 
BB 95 E8 A6 9B 
BB98 AE 92 AA 
BB9B DC BC 63 
BB9E B O PC A7 


BBA1 2E A7 37 
BBA4 A7 CC A8 
BJA 7 4F AD 4B 


BBAA AA 
BBAB BD A4 IE 
BBAE AF 7E B 1 
BBB1 9D 9F 88 
BBB4 AB 19 A6 
BBB7 08 A9 66 
BBBA AA BB 9F 


WORD SABSVAj SACOS, SADV, SALG, SALGN, SAND, SASIN, SATAN, SBAL, SB ITS 


WORD SBSTEP , SC, SCALL, SCDEG, SCHGSG, SCLCAL, SCLINI, SCLMEM, SCLPRO, SCLR, SCLSTAT , SCLX 


WORD SCM, SCMPND, SCOMPL, SCONTI, SCQS, SCRAD, SCUP, SDEC, SDEG, SDELET 


WORD SEND, SENTER, SEXPE, SEXPTE, SF, SFACTO, SFIND, SFIX, SFLOZ, SFRACT, SFT 


. WORD SFV, SFVDUE, SFVQRD, SGAL, SGM, SGOTO, SHEX, SI, SIN, SINSER, SINTEG, SKG 


WORD SKM, SL, SLB, SLIST, SLN, SLOAD, SLOGTE, SLSHF, SM, SMI 











WORD SMOD, SN, 


ICT, SOFF, SON, SOR, SOZ, SPAUSE 








WORD SPI, SPMT, SPOLAR, SPOP, SPOPC, SPOWER, SPRINT, SPROGR, SPUSH. SPV 


COLLEEN CALCULATOR, BY C SHAN 




BBBA AA BB 9F 


COLLEEN CALCULATOR/ BY C SHAW 


BBBD 66 AF 
BBBF 03 AE 07 
BBC2 AE 6D AD 
BBC5 F5 AF 57 
BBC8 A7 7F 9F 
BBCB 24 A9 ID 
BBCE 9F E6 AB 
BBD1 16 A6 
BBD3 60 A6 81 
BBD6 A7 DE A7 
BBD9 8A AA ED 
BBDC BC DF AC 
BBDF 6A BO 3A 
BBE2 BO AB BF 
BBE5 AF BF A7 
BBE8 B 1 
BBE9 5A AS CC 
BBEC A9 60 AS 
BBEF 93 AA A7 
BBF2 A8...2B-A9 
BBF5 65 AD EO 
BBF8 BC 7D A6 
_ BBFB 61 AD OA 
BBFE BO 
BBFF E8 9F B3 

BC 03 A8_ i 5 l_AB_ 

BC05 23 AB 2E 
BCOS AB D9 AF 
BCQB 39 AB DO 
BCOE A8 EC BF 
BC 1 1 El AF 

BC 13 58 A9 39 

BC 16 AD 1C BO 
BC 1 9 DD AF F2 
BC1C BF E5 AF 
BC 1 F 94 AS 37 
BC22 A9 67 A9 
BC2 5 80 A9 


. WORD SPVDUEz SPVQRDi SOT, SCORREz SRADz SRCL, SRECIP, SRECTA, SRETUR, SROOT 


. WORD SROUNDz SRPNz SRSHF# SRESETz SRUNz SSAVE. SSINz SSLOPEz SSMINUz SSPLUSz SSQRT 


WORD 


SSQUARz SSSTEPz SSTOz SSTPz SSUMz STAN/ STBSPz STRACEz 


SX^ 


. WORD SXCHGYz SXCHMz SXEQz SXOEz SXLTz SXMEANz SXNEz SXOR, SXSTDDz SXVARI 



.WORD SPMULz SPDIVz SPADDz SPSUB 



— 


COLLEEN CALCULATOR# BY C SHAW 


BC27 

BC2A 

BC20 

BC30 

BC33 

BC36 

BC39 

BC3C 

BC3F 

BC42 


20 54 45 
52 4F 41 
4E 43 53 
4C 50 44 
49 4D 55 
46 47 58 
59 56 48 
42 4B 57 
51 5A 4A 


BC42 12 20 85 
BC45 15 B9 ID 
BC48 71 61 45 
BC4B 08 

BC4C ID 75 21 
BC4F 04 6A DC 
BC52 18 5E E6 
BC55 7C 15 41 
BC58 7F EO 63 


BC5B 40 
B C 5C_1A_0 5_. 3D 


BC5F 20 F2 F5 
BC62 82 15 04 
J3C65 40 OA 08 


BC 68 15 7F EO 
J3C6B 6 3 41 92 


BC6E 68 07 13 
BC71 ES 20 30 


BC74 14 7F EO 
BC77 63 41 92 
BC7A 68 07 10 


BC7D OF AA 


BC7F1QJ2IL 19 


BC82 26 80 71 
BC 85 3E B2 03 


BC88 OF 5B 19 
BC8B 26 80 71 
BC8E 00 FA AO 


BC91 16 7F EO 
BC946341 5F 


TABLE 


OUTPUT FROM BASIC PROGRAM DK1: WORDSG. BAS 
BYTE " TERQANCSLPDIMUFGXYVHBKWQZJ" 


BC97 21 50 01 
BC9A 46 70 13 


BC9D 15 25 51 
BCAO E6 70 31 
BCA3 80„56 _46 
BCA6 82 34 90 

BCA9 17 64 D2 
BCAC 05 E3 2D 


ERRTBL 

# 

TOPMSG 


TWO OPS IN A ROW 

BYTE 18# 32# 133# 21# 185# 29# 113# 97# 69# 8 


1 °//, 


|feU 

T7 


KEYMSG . BYTE 


NOT VALID COMMAND OR NUMBER 
29, 117, 33, 4# 106# 220# 24# 94# 230, 124# 21# 65# 127, 224, 99, 64 


HEX/OCT OVRFLW 

BYTE 22# 5# 48# 32# 242# 245# 130# 21# 4# 64# 10, 8 


) 6 




NSEMSG 


NUMBER STACK EMPTY 

BYTE 21# 127# 224# 99, 65# 146# 104# 7, 19, 235, 32, 48 


NUMBER STACK FULL 


NSFMSG .BYTE 20, 127# 224# 99# 65# 146# 104, 7# 16# 1 5, 170 


_QS£MSG 


OP STACK EMPTY 
BYTE Ih, 


># 178# 3 


OSFMSG . BYTE 


OP STACK FULL 


15# 91, 25# 38, 128# 113, 0, 250, 160 


BITMSG .BYTE 


NUMBER OUT OF RANGE 
22, 127# 224# 99, 65# 95, 33, 80# 1# 70, 1 12, 19 


DIGMSG 


TOO MANY CHARACTERS _ 

BYTE 21, 37, 81, 230, 112# 49# 128, 86# 70# 130, 52, 144 


CRYMSG 


ARITHMETIC OVERFLOW 

BYTE 23, 100, 210, 5# 227# 45# 129# 80, 67# 64# 10# 80# 128 


l £ 




BCA6 82 34 90 


BCA9 17 64 D2 CRYMSG _ BYTE 

BCAC 05 E3 2D 


ARITHMETIC OVERFLOW 

23/ 100, 210, 5, 227, 45, 129, 80, 67, 64, 10, 80, 128 



1 


C 


COLLEEN CALCULATOR, BY C SHAW 


BCAF 81 50 43 


OUDc tv wn 

BCB5 80 








i 


END OF PROG MEM 


BCB6 11 37 

Cl 

EPMSG 

. BYTE 

17/ 55, 193, 80, 1 

, 180, 80, 17, 227, 224 

BCB9 50 01 

B4 





BCBC 50 11 

E3 





nrnF fo 








# 


CALL STACK EMPTY 

BCC0 12 86 

AA 

CLEMSG 

. BYTE 

18, 134, 170, 25, 

38, 128, 113, 62, 178, 3 

BCC3 19 26 

80 





BCC6 71 3E 

B2 





BCC9 03 








i 


CALL STACK FULL 


BCCA 11 86 

AA 

CLFMSG 

. BYTE 

17, 134, 170, 25, 38, 128, 1 13, 0, 250, 160 

BCCD 19 26 

80 





BCDO 71 00 

FA 





BCD3 AO 








I 


UNIT MISMATCH 


BCD4 OE F7 

D2 

UNIMSG 

. BYTE 

14, 247, 210, 30, 

217, 230, 40, 5 

BCD7 IE D9 

E6 





BCDA 28 05 






BCDC 


SNOTRACE 


, TRACE OFF 20 LIMES 

BCDC A9 00 



LDA 

#0 


BCDE FO 02 



BEQ 

STR 10 


BCEO 


STRACE 



i TRACE ON 

BCEO A9 01 



LDA 

#1 


BCE2 


STR10 




BCE2 85 BC 



STA 

TRACE 


BCE4 A6 BB 



LDX 

PROG 

/PROGRAM IN EXECUTION? 

BCE6 FO 04 



BEQ 

STR20 

; NO. 

BCEB 


STR 1 5 




BCE8 49 01 



EOR 

#*01 

, YES. TRACE DETERMINES DSPFLG 

BCEA 85 BD 



STA 

DSPFLG 


ECEC 


STR20 




BCEC 60 



RTS 



BCED 20 8A 

AA 

SRUN 

JSR 

SRESET 

; GOTO 0 AND RUN 

BCFO 


SCONTI 



i CQNTINUEO RUN STARTING AT CURRENT 

BCFO A2 02 



LDX 

#EXEC 


BCF2 86 BB 



STX 

PROG 


ECF4 A5 BC 



LDA 

TRACE 


BCF6 10 FO 



BPL 

STR 15 

, JMP IF NOTRACE THEN DSPFLGC-l 



COLLEEN CALCULATOR, BY C SHAW 


<0 


<0 


BDOO 29 37 23 
BD03 41 B4 50 


PROMSG . BYTE 


*-* 1 /256+ 1 *256 iGOTO NEXT PAGE BOUNDARY 

ENTER PROG ADDR 0-1023 


41, 55, 35, 65, 180, 80, 17, 108, 196, 16, 243, 0, 242, 208, 243, 16, 243, 0, 243, 32, 243, 48 


1 9 

BD09 10 F3 00 
BDOC F2 DO F3 
BDOF 1 O n 




€ 

• 

1 u r J UU 

BD12 F3 20 F3 
— BD1 5 30 




t 

• 

rs 

BD16 12 37 23 
BD19 41 QF 30 

nm r nc nn nr- 

FIXMSG 

. BYTE 

ENTER 0-8 

18, 55, 35, 65, 15, 48, 15, 45, 15, 56 

1 

f • 

a v/ Ur c :u OF 
BD1F 38 

-- 4 


ENTER 1-32 

« 


BD20 16 37 23 
BD23 41 OF 31 
BD26 OF 2D OF 

BTSMSG 

. BYTE 

22, 55, 35, 65, 15, 49, 15, 45, 15, 51, 15, 50 

0 

# 

BD29 33 OF 32 




— 


BD2C IB 37 23 

# 

MEMMSG 

. BYTE 

ENTER REG 0-99 

27, 55, 35, 65, 67, 1, 16, 243, 0, 242, 208, 243. 1 44. 243. 1 44 

• 

• 

BD2F 41 43 01 
BD32 10 F3 00 
BD35 F2 DO F3 




• 

£ 

BD38 90 F3 90 



1 — — — — — — 

— 


BD3B OF 37 23 

i 

__ FSPMSG 

BYTE 

ENTER FILESPEC 

15, 55, 35, 65, 0, 218, 57, 179, 128 

1 

W 

BD3E 41 00 DA 
BD41 39 B3 80 







7 _ 


ENTER DESIRED UNITS 


0 

BD44 13 37 23 
BD47 41 C3 9D 
BD4A 43 Cl F7 

CN2MSG 

. BYTE 

■' 

19, 55, 35, 65, 195, 157, 67, 193, 247, 210, 144 

| 

0 

BD4D D2 90 
BD4F 14 85 70 

/ 

CN3MSG 

. BYTE 

CONVERSION COMPLETE 

20, 133, 112, 67, 73, 213, 113, 133, 235, 163, 35 


0 

BD52 43 49 D5 
BD55 71 85 ES 
BD58 A3 23 





f 

BD5A 05 25 10 
BD5D 00 

i 

CELMSG 

. BYTE 

TO F 

5, 37, 16, 0 


i 

BD5E 04 25 18 

» 

FAHMSG 

. BYTE 

TO C 
4, 37, 24 


— 


/ 


TO POLAR Y, X->Y=ANGLE, X=RADIUS 



BD61 36 25 IB 
BD64 5A 64 11 

ZRECT 

. BYTE 

54, 37, 27, 90, 100, 17, 3, 15, 44, 2, 15, 45, 15, 62, 3, 15, 61, 103, 1, 163, 15, 44, 2, 15, 61, 70, 205, 249 


- 

BD67 03 OF 2C 






BD6A 02 OF 2D 
BD6D OF 3E 03 
BD70 OF 3D 67 






BD73 01 A3 OF 
BD76 2C 02 OF 
BD79 3D 46 CD 






BD7C F9 





— 

BD7D 35 25 14 

/ 

ZPOLAR . 

BYTE 

TO RECT Y=ANGLE, X=-RADIUS->Y, X 

53, 37, 20, 56, 33, 16, 48, 243, 214, 112, 26, 48, 242, 192, 32, 243, 212, 108, 223, 144, 242, 208, 243, 224, 48, 

24 




COLLEEN CALCULATOR, BY C SHAW 


i nines, Forms. Int. sv M12T ltl-2 


BD7D 35 25 14 
BD80 38 21 10 


Z POLAR .BYTE 


• 




5^ ■ 3/, 20 1 56/ 33/ 16/ 48, 243, 214, 112, 26, 48, 242, 192, 32, 243, 212, 108, 223, 144, 242, 208, 243, 224, 48, 24 


COLLEEN CALCULATOR, BY C SHAW 


BD83 30 
BD86 70 
BD89 F2 
BD8C F3 
BD8F DF 


F3 D6 
1A 3a 
CO 20 
D4 6C 
90 F2 


BD92 DO 
BD95 30 
BD98 20 


F3 EO 
F2 CO 


BD99 06 25 14 


ZDEG 


BD9D 07 25 1C 
BDAO 30 10 


ZRAD 


. BYTE 


. BYTE 


TO RAD 
6, 37, 20, 108 


TO DEG 

7, 37, 28, 48, 16 


BDA2 04 25 IE 

BDA5 07 25 10 
BDA8 70 10 


ZM . BYTE 

-i - . 

ZKG . BYTE 


BDAA OA 25 10 
BDAD OA 15 OA 


ZFL 


BDBO OA 34 45 
BDB3 41 OF 2D 


BDB6 39 
BDB9 11 
BDBC 64 


OF 7D 
11 62 
D1 86 


ERRMSG . BYTE 


STATLN . BYTE 


BDBF A8 
BDC2 54 
BDC5 03 


FA 62 
18 5B 
4D 01 


BDC8 05 
BDCB 31 
BDCE OF 
BDD1 39 


21 OF 
OF 39 
37 OF 
1 1 10 


BDD4 

BDD7 

BDDA 

BDDD 

BDEO 

BDE3 

BDE6 

BDE9 

BDEC 

BDEF 


38 16 AO 
11 14 6C 
1C 38 10 
6D 29 OF 
31 OF 36 
10 OD 02 
OF 38 10 
00 4C F3 
13 72 34 
OF 9 B 


STLN2 . BYTE 


O 


BDF1 31 
JBDF 4 11 
BDF7 92 
BDFA 11 
BDFD FZ 
BEOO 11 
BE03 D9 
BE06 IF 
BE09 F7 
BEOB 


OF 70 
11 11 
6e 07 
1 1 10 
Cl 11 
43 01 
23 49 
11 10l_ 
CO 


STKLIN . BYTE 


TO M 
4, 37, 30 
TO KG 


7, 37, 16, 112, 16 


. BYTE 10, 37, 16, 10, 21, 10 
ERROR- 


10, 52, 69, 65, 15, 45 

L ATARI CALCULATOR COPYRIGHT 1979 

57, 15, 125, 17, 17, 98, 100, 209, 134, 168, 250, 98, 84, 24, 91,3, 77, 1, 5, 33, 15, 49, 15, 57, 15, 55, 15, 57, 17, 1 


ALG RAD DEC BITS16 FIX8 FVDUE ENTER 3 

56, 22, 160, 17, 20, 108, 28, 56, 16, 109, 41, 15, 49, 15, 54, 16, 13, 2, 15, 56, 16, 0, 76, 243, 19, 114, 52, 15, 155 


STACK ! REGISTERS ! 

49, 15, 124, 17, 17, 17, 146, 104, 7, 17, 17, 16, 247, 193, 17, 17, 67, 1, 217, 35, 73, i7, 17, 16, 247, 192 


KEYWRD 






t 


ABS 


0 


COLLEEN CALCULATOR* BY C SHAW 


ATAN 


BE1C 74 62 67 
BE IF 4 0 66 


116/ 98/ 103 
64, 102 


BAL 


8 


BITS 


BE21 A5 06 D 2 


165, 6, 210 



BEOB 46 06 

. _ . 

. BYTE 

70, 6 


ACOS 

1 




BEOD 94 68 59 

i 

. BYTE 

148, 104, 89 


ADV 

2 




BE 10 46 CO 


. BYTE 

70, 192 








i 




ALG 

3 




BE12 44 6A 01 


. BYTE 

68, 106, 1 


ALGN 

4 




BE1 5 56 AO 17 

# 

. BYTE 

86, 160, 23 


AND 

5 




BE 18 36 7C 


BYTE 

54, 124 _ 








i 




ASIN 

6 




BE1 A 46 9D 


. BYTE 

70, 157 







BE24 94 06 92 

# 

. BYTE 

148, 6, 146 

BST 

10 

- • ■ - 

BE27 18 

i 

. BYTE 

_ 24 

C 

1 1 


BE28 48 6A 

i 

. BYTE 

72, 106 

CALL 

12 



i 



CDEG 

13 


BE2A A5 QC 30 


. BYTE 

165, 140, 48 




BE2D 19 80 50 _ 

i 

. BYTE 

25, 128, SO, 25, 1 

CHGSGN 

14 


BE30 19 01 







BE32 76 8A 86 

i 

. BYTE 

118, 138, 134, 170 

CLCALL 

15 


BE35 AA 







BE36 58 AD 72 

i 

. BYTE 

88,. 173,-1 14 

CLINT 

16 



BE39 58 AE 3E 


BYTE 


88, 174, 62 


BE3C 78 AB 45 
BE3F 01 


CLMEM 

CLPROG 


BYTE 


120, 171, 69, 1 


BE40 38 A4 
BE4_2__68_jA2_26 
BE45 24 8A 02 


CLR 


56, 164 
104, 169, 38 
36, 138, 2 


BE48 28 
BE49 £5 8E B7 
BE4C C4 85 EB 


BE4F 48 57 
BE51 23 85 
BE53 94 84 6C 


40 

229, 142, 183 
196, 133, 235 
72, 87 
35, 133 
148, 132, 108 


BE56 38 FB 


. BYTE 


56, 251 


BE56 38 FB 


. BYTE 


56, 251 


n 

t 

# 


r 


_EEN CALCULATOR, 

BY C SHAW 



BE 58 3C 38 

) 

. BYTE 


BE5A 4C 30 

i 

— -1 

. BYTE 

76, 48 

BE5C 13 C3 


. BYTE 

19, 195 

BE5E A3 37 

i 

. BYTE 

163, 55 

BE60 C5 37 23 

i 

. BYTE 

197, 55, 35 

BE63 45 30 2B 


. BYTE 

69, 48, 43 

EE66 37 30 2B 

i 

. BYTE 

55, 48, 43, 35 


BE69 23 
BE6A 72_0a 


BE6C 50 06 82 


BYTE 


BYTE 


80, 6 , 130 


BE6F 50 0D 7C 
BE72 5Q _QD_ £2: 


80, 13, 124 
8 0, 13, 2 


BE75 60 OA 50 


96, 10, 80 


BE78 

A5 

00 

46 


. BYTE 

165, 0, 70 

BE7B 

83 

QQ 


i 

. BYTE 

131 , O 

BE7D 

24 

00 

04 

i 

A 

. BYTE 

36, 0, 4 

BE80 

BE83 

70 

F3 

00 

4C 


. BYTE 

112, 0, 76, 243 

BE84 

BE87 

70 

4C 

00 

45 

i 

. BYTE 

1 i2, 0, 69, 76 

BE88 

40 

16 



. BYTE 

64, 22 

BE8A 

A3 

Q:L 


# 

. BYTE 

i63, 1 

BE8C 

E5 

01 

52 

i 

. BYTE 

229, 1, 82 


BE8F 55 05 30 
BE92 21 
BE93 02 D7 
BE95 3D 79 
BE97 30 72 


BE99 40 70 


BE9B 13 07 
BE9D El 


. BYTE 


85, 5, 48 

. BYTE 


33 
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BEOB 
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057F 
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LD1MUL 
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L DC HR 
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LDN20 
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9B6A 
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AFAA 
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